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9827 
8654 
8001 
8621 
BSA 
a82}i 


892A 
3856 
9858 
8860 
8858 
893A 
a944 
8863 
$858 
895A 
9865 
HHH 
396A 
Q00A 
S97A 
3964 
8868 
8782 
B99A 
BO0F 
9000 
aOi1F 
302F 
a03F 
aO4F 
305F 
BOGF 
8860 
8855 
SO7F 
@O0aF 
871 
d09F 
3L0F 
G1iF 
8871 
0000 
Q870 
3855 
812F 
8876 


US 


U6 


61 


G2 
«¢3 


G4 


&G3 


STOP 


MASTR 
MAST 


BUF 
LOA 
STA 
LDA 
JMP 
Toc 
HSS 
HLT 


H&T 
CLA 
STA 
HCC 
HBT 
LOA 
LOL 
TEQ 
HBT 
Tco 
ERS 
CON 
SHL 
SUF 
LDA 
STA 
LOA 
JMP 
roc 
HBT 


JMP I 


IIR 
ATL 
IIR 
ADD 
STA 
LOx 
TES 
HLT 
IIR 
ATL. 
CLA 


TEQL 


HBT 
LOX 
ADD 
CON 
HBT 


LIRS 


LOA 
LOL 


0000 
Ki 


FOL99 
00000 
0200 
0004 


Ut 


Ut 


Ki 


Ul 
ROZOO 


00000 
0406 


0000 
KO 


Go019 
ROZOO 


0000 
0150 


0001 
T 


T 
9000 


0002 
01506 


aF 
0000 


0000 
00000 


mMaSTl 
G0008 


RA 

US 
oF 
FO0OO0 
VEX 
VEX 


G2 
~63 
G2 


GS 
G2 


oF 
OHHH 


RA 


oF 
G0000 


#G3 
Gi 


28 
190000 
STOP 
G1 


aF 


U6e MOVE STATION 1 
TO LST STATION AREA THENSEXIT, 
U7e SELECT STACKER 2 
BEGINNING WITH GAD COMPARISON CARDe HALTs 
x THENHEXITs 
Ge FETCH NEXT CARD SECTION 
Gle RESET TIMER 
FOR OFF NORMAL 
G2e TRY TO FEED a CARD 
OFF Sle OFF NORMAL GO TONGS, 
ON8 
G3. CHECK BUFFERS. 
EMPtIF GUFFERS ARE EMPTY GO TosG2 
AND FEEO ANOTHER CaRO. 
ONE 8 
G4. MOVE NEXT IMAGE 
TO AREA Ge 


THEN CYCLE FULL SUFFER CONTROL LINK KO, 
AFTER THATREXITe 


GS. STEP TIMER 
_ STEP THE OFF NORMAL TIMER. 
1SO48IF TOO LONG STOP. 
THEN TRY AGAIN BY GOING TOAG1. 
OK OTHERWISE GO TOwG3 AND EMPTY A SUFFER, 
&@ SYNCHRONIZE LOOP WITH DRUM 


Se STOP ROUTINE 

Sie SHUT DOWN READER 
COUNT TO 180 TO MAKE SURE ALL COMMITTED — 
CAROS HAVE BEEN READe 
THENHEXIT. 


G@ SYNCHRONIZE LOOP WITH ORUM 


Me MASTER PROCESS CONTROL 
Mle FETCH A CARD 
BY GOING TO SECTION G. 
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0249 
9250 
o2z81 
0252 
o253 
o254 
0235 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
o2z63 
0204 
0265 
0266 
0267 
Oz6a 
0209 
0270 
0271 
O272 
O273 
0274 
027s 
0276 
0277 
0278 
0279 
0280 
0281 
0282 
O2z83 
0264 
028s 
0286 
0287 
0288 
0289 

0290 

0291 

0292 
0293 

0294 

o295 


| 0296 


0297 
0298 


8875 
8876 
8877 
BiSF 
8879 
8860 
8881 
3865 
8664 
8878 
8886 
8887 
8668 
Si4GF 
8869 
83890 
3862 


8891 
B892 
8893 
B1SF 
Bi6F 
Bi 7F 
8isFf 
8896 
BiSF 
B20r 


gaca 


8599 
8901 
3902 
82iF 
822F 
B9048 
8908 
8906 
8897 
B905 
823F 
8907 
8908 
8909 
8910 
S2arF 
8912 
8913 


888 
358 
a6s 
888 
888 
868 
388 
388 
Bae 
886 
386 
888 
88a 
888 
e868 
858 
8868 


ass 
888 
ass 
688 
888 
388 
ass 
B88 
888 


688 
888 
886 
385 
886 
888 
886 
ass 
B58 
888 
688 
888 
888 
388 
886 
BBB 
B88 
888 
B58 


A | A A A, NNN gn 


ecoooc oene eee sGcecaeococeocooocoecocora 


2000 
8877 
8791 
8879 
5800 
698} 
8863 
9999 
8807 
8886 
3006 
Base 
B791 
8889 
8800 
8891 
8819 


8892 
8893 
8787 
8769 
0300 
8894 
6895 
#201 
5ag4 
8898 
0000 
8900 
8902 
0200 
8902 
8904 
8905 
8906 
4200 
0006 
0208 
8907 
8908 
8909 
4200 
8a94 
8912 
0000 


4363 


6000 
B478 
BSF 
g8aoq 
0000 
3382 
8864 
9999 
88865 
3887 
Q000 
3862 
Alar 
8890 
0060 
8882 
868s 


gs70o 
34805 
3LSF 
Gi6F 
Bi7F 
818F 
8896 
BL9F 
B20F 
9399 
HHHO 
8901 
89035 
82iF 
@22F 
aaaFr 
8905 
8897 
88946 
8903 
§25F 
B25" 
8908 
8911 
4910 
B24F 
8913 
HHHO 
a25F 


Vad AD 


COPY 


-CP 


02 @ 


&CP 


-CPP 


a, SN: eats’ {<cmt Mente—enintanmine. 


ZON 
TED 
LDA 
LOL 
NUM 
TES 
LDA 
CON 
STA 
LOL 
ZON 
TEQ 
LDA 
LOL. 
NUM 
TEGO 
LIR’ 


LIRL 
LIRa 
LDA 
LOX 
SHR 
STA 
$TX 
LOL 
LDA 
ERS 
CON 
TEG 
TGR 
TRO 
Tet 
TET 
CLA 
TES 
TBU 
HLT 


TBT 
CLA 
TEGO 
TRU 
LDA 
ERS 
CON 
LOL 


FIN G 
G0009 
FIN Q 


99999 
NUM 


cry 0 
GO0009 


cPeY 0 
COPY 
MASTR 


5F 
6F 
@0005 
60007 
0500 
FRST 
LST 
ROOOL 
FRST 
00000 
3F 


0200 
98 


R000 


0006 
0205 


ROOGO 
FRST 


60000 
ROLES 


N.S yet hes 


00000 
3F 


aF 
009000 
uF 
2F 
99999 
WRITE 


aF 
00000 
uF 


aF 
00009 


WRITE 


STOP 
CKwR 


“Cp 


aF 
OHHHO 
uF 


4cr 
=CP 
4F 


&CPP 
“CPP 
2F 
OHHHO 


M2. CHECK FOR FIN 

FINSIF SO SET LINE NUMBER TO SENTINEL 
r AND WRITE TAPE ATAWi. 

NO8 


M3. CHECK FOR CPy 
CPYSYTFE SO JUMP TO COPY ROUTINEASCI, 
NOs 


M4e WRITE LINE 
x THIS IS A CARD TO BE PROCESSED BY PASS 2 SO 
X WE WRITE IT OUTe USING ROUTINE We AND GO 
x BACK TOHM1. 
Ce COPY OLD TAPE 
Cie STOP THE READER 
ROUTINE Se 
C2e CHECK PREV WRITE 
AT #30e 
C3e SET UP FIRSTsLAST 
LINE NUMBERS FOR OLD TAPE. 
Cue FIRSTS CURRENT 
LESSIF FIRST IS LESS THAN CURRENT GO TONCe. 
are IF FIRST EQUALS CURRENT Go TOPCS. 


CSe READ TAPE FORWARD 

OKt THEN GO SACK TOANCH, 

BADSs 
TF ERROR ON TAPE READ?+ HOWEVER: HALT AND 
REVERSE OIRECTION 


CSe READ TAPE BACKWARD 
BADSIF ERROR REVERSE DIRECTION ATHCS, 
OK 8 


C7e RECOMPARE 

LESSIF FIRST IS STILL LESS THAN CURRENT: GO TORCE 
GOL IF THEY ARE EQUALe REREAD FORWARD ATRCS. 

GTR IF GREATERe WE also GO TONCS (PROBABLY 4 BAD 
xX MACHINE ERROR) 


a, pe artnet a: sae cern | Nemnnensinste geen” peqeiemevnntanc a onary ; z 
 niemataai eee ee ee el 


33 0299 @25F 888 0 82 8902 8901 TEQ 98 aB 
: 0300 8911 9888 0 67 0006 3902 &CPP HLT 9006 98 
e 0301 8900 888 0 25 8894 as2eF 3 LDA FRST C8e MOVE TO OUTPUT. 
g ° 0302 B26F 888 0 35 8914 98915 ERS ar MOVE & RECORD FROM THE OLO TaPE TO 
25 0303 3914 888 0 00 0000 000K CON 00000 OOOOH WORKING STORAGE (REGION G). 
- 0304 8915 388 0 37 0800 a327F 2 SHL 0500 
ae 0305 @27F 888 0 70 OOOA 826F ADD RA 
a 0306 B2sF 888 0 70 8916 8917 ADD MoV MF 
o= 0307 8916 388 0 BO 4200 2918 MOV TOC ROQOdO WRIT2 
y° 0308 8917 888 0 60 8919 329F 1 STA wWRITL 
3 0309 829F a88 0 25 8920 4919 LDA WRITS 
o310 8920 888 0 00 B80! 8782 JMP G0019 go000 
O311 8918 9868 0 08 8921 asas WRIT2 LIR1 se WRITE C%e THEN WRITE IT OUT 
0312 X THE OLD TAPE IS NOW POSITIONED TO WRITE 
O313 8921 888 0 25 Ba94 BOF 5 LDA FRST PROPERLY. USE SECTION W TO WRITE OUT A LINE> 
o314 B3JOF 388 0 30 ge9s a31F LDL LST INCREMENT "FAST* AND CHECK FOR END. 
0315 Q@31F 6888 0 70 8922 a32F ADD ONE DONEIF OONE WITH THIS COPY CARD+GO BACK TO MASTER 
0316 X  CONTROLAM! 
0317 832F 688 0 87 Galo 3a33F TGR MASTR MORE 
o318 B33F 888 0 60 Ba94 3923 STA FRST SF CLOeCHECK INPUT BUFFER 
0319 8923 388 0 25 8919 434F 5 LDA WRITL EMPTIF EXHAUSTED READ ANOTHER RECORD ATACS.« 
0320 B34F 886 0 70 8924 a35F ADD M20 OK OTHERWISE GO BACK TOMCS. 
032) 835F 888 0 30 8925 3926 LOL aF 
0322 8925 8868 0 BO 4400 4918 Toc = ROZOO WRIT2 
0323 8926 388 0 82 8902 4917 2 TES 98 1B 
03248 a928 888 0 00 0020 9000 M20 CON 90002 90000 
032s 8922 988 0 00 0000 9001 ONE CON 0000 00001 
0326 8865 888 0 42 8820 a36F WRITE HBT Ul We TAPE WRITE CONTROL SECTION. 
03247 B3eF 9888 0 25 8807 a37F LOA NUM Wie SET LINE COUNT. 
0328 837F 86868 0 60 e763 aseF STA G0G01 AND INCREMENT 
0329 B3JeF 888 0 31 8927 38927 CLL FINSTF SENTINEL JUMP TOMWS, 
0330 8927 3888 0 SO 8762 a30F STL. G0000 OKs 
Sts 0331 B39F 888 0 70 8922 28928 ADD ONE ~¥R W2. PLACE IN BUFFER 
rurg 0332 8928 888 060 8807 a930 “Wh STA NUM WRG THEN CHECK FOR BUFFER FULL. 
2sE6 0333 8930 68GB 0 25 8931 4932 wRa LDA iF OK§ IF NOTeHEXIT. 
gore 0334 8931 888 0 00 sa0i a7e2 JMP G0019 goood FULL 
S58e 0335 8932 388 0 88 4000 g4OF 1 TCD = pe0dd 
or 0336 S40F B88 0 25 Bala s4iF LDA wr2 
mead 0337 B91F 888 0 30 8933 4934 LOL oF iF 
Bree 0338 8933 888 0 00 8600 4581 9 JMP 0199 BO180 
wZté 0339 8934 888 0 80 4000 a42F 1 Toc 90000 
ast o340 a42F 888 0 82 8935 #843F TEQ 1F 
ayes 0343 B43F 888 0 70 8936 aur ADD TwTwW 
Sao 3 0342 B44F 88B 0 60 8814 a4SF STA wWR2 
Bore 0343 B4SF 388 0 42 B820 B46F HBT Ul! 
zoo 0344 B46F 888 0 04 C000 9000 JMP1 9000 
wize 0345 8935 9886 0 25 8937 a9g3a 1 LDA 3F iF 
OBR 0346 8937 388 0 00 8420 a40l a JMP 0019 80000 
Wes 0347 8938 3888 060 8814 847F i STA wa 
ae O348 B47F 3880 42 8820 aKeF HBT Ul 
zeou 
ae 
ee 
zs 


SAME TO SPERRY RAND CORPORATION, UPON DEMAND 


o = - : a + enna etna 
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Flare 
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0549 
0350 
0351 
0352 
0355 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0302 
0365 
0364 
0365 
0366 
0367 
0368 
0369 
0370 
0371 
0372 
0373 
O3s748 
0375 
0376 
0377 
03768 
0379 
0380 
0381 
0382 
0363 
03564 
0385 
0386 


~- 0387 


Bear 
B49F 
SS50oF 
8936 
89359 
8940 
8S5i1F 
8943 
B942 
BSaF 
BS3F 
3929 
BI44 
asauF 


8S5F 
8945 
B9u6 
8947 
8948 
BS6F 
B57F 
8804 
S56F 
BS9F 
8805 
5943 
GOOF 
894u9 
8950 
G6iF 
862F 
8952 
8953 
BOF 
8954 
8951 
864uF 


388 
888 
B86 
888 
888 
888 
888 
BBB 
688 
888 
886 
386 
888 
886 


336 
88B 
38B 
3BS 
886 
§88 
886 
388 
386 
886 
386 
885 
a86 
B88 
836 
BaB 
BBB 
888 
388 
886 
8458 
888 
s88 


eoooccococoooracocooncoocorerc oocoacoocacocncocen & 


6401 
660! 
5939 
0020 
8462 
0300 
B94} 
8820 
agas 
8805 
0006 
G9ag 
Baia 
8937 


8945 
8946 
B987 
8402 
0300 
8943 
0200 
0300 
0400 
BoCcO 
0000 
B9895 
8820 
8950 
8951 
6000 
8952 
0000 
8955 
8955 
0005 
8803 
8805 


a4gF 
SS0F 
3805 
0920 
B940 
85iF 
8942 
8940 
a5aF 
aS3F 
0000 
8930 
asur 
assr 


8929 
g805 
8870 
a946 
856F 
aS7F 
8804 
9SaF 
B59F 
8000 
0000 
asor 
Q9a3 
8950 
86 i1F 
a62F 
8953 
a9S4 
363F 
8870 
8805 
B6O4F 
8803 


Twtw 


&WR 


WU 


PASS2 


WROF 
WRON 


CKWi 


LOA 
STA 
LIR2 
CON 
Tal 
TWR 
TST 
HBT 
LDA 
STA 
JMP 
LIR} 
LOA 
LOL 


TEG 
LIR2 
LIRS 
TBL 
TWR 
TST 
TRY 
TRY 
TRO 
TBU 
JMP2 
Tet 
HBT 


LIRi 


LIRS 
HLT 
LOA 
STA 
END 


80000 
B0200 


0000¢ 
0001 
0300 


U1 

WRON 

CKWR 
0000 


WR 
58 


SF 

SF 

80001 
0300 


0200 
0300 
0400 
8000 
0000 
lr 
Ui 


oF 
90090 


0000 
CKWe 
CKW2 

0005 
WROF 
CKWR 
INIT 


CKak 
00020 
iF 


1F 
18 


WR4 


&BR 
cKeR 
STOP 
SF 


PASS2 
BO00 


WRON 


2F 
cKwl 


STOP 
wROF 


wROF 


W3. CHECK PREV WRITE 
AY #50, 
LOAD THE BUFFERe WRITE* AND SET THE 
CHECKING SWITCH ON, 
THENSEXIT, 


W4e WRITE SENTINEL. 
CHECK FOR END OF TAPE RECORD. 
NO! fe NOT,RETURN TOM@u WRITING SENTINELS UNTIL 
x A TAPE RECORD 1S OUMPED OUT. 
YESs 
WS, CLEAN UP. 
CHECK THE BRITE 


WRITE ANOTHER SENTINEL BLOCK. 


USE wSO0. 


WG. END. 
REWIND TAPES» READBPASS2 AND EXECUTE ITe 


W500 PREVIOUS WRITE cee 
SWITCH TESTS EXISTENCE OF PREVIOUS WRITES 
re NONE RE XT Te 


WSL.WAIT READY. 
WHEN TAPE IS FINTSHEO CHECK FOR ERRORS. 
NONEIF OK SET SwITCH OFF ANOMEXIT, 


“€RR IF ERROR STOP THE READER (SECTION S)e 


HALTe ANO THENSEXITe 


ARES, CT |! ee" Wp meee 


‘Wd ‘VIHdTS0V Hd 
NOILVueOddOD GNVWY AYuadS 4O NOISIAIO 


Ry Pe yy uapouyrgg 


GONVW30 NOdn ‘'NOILVHYOdHOD GNVY AYYSadS OL aWvs 
YSON3BeYNS OL SABYOV HSHLYNA GNVY ‘NOILWHNYOdYOD GNVY AMMSadS JO NOISSINYSd N3LLINM 
BHLHLIM 1d3DX3 “S3SOduNd ANV YO4 'SYBHLO AS NOILDV HONS YS44NS OL YO 'LYWd NI YO JIOHM NI 
‘GANIVLNOD NISYSHL NOILVNYOSNI SHL YO/ONV LNSWNDOG SIHL LINSNVYL YO ASN ‘AdOD ‘aDnNGOUdaY 
Ol LON S3EYNDV LNAIdIDSY SHL‘LNAWNDOO SIHL d4O 1diIZD3Y 3H1 AO NOILVYHSGISNOD NI 





‘Wd ‘WIHdT30V1IHd 
NOILVHOdHOD GNVY ANYadS 4O NOISIAIC 


yyy PUUgy uapOUyreg 
‘| 


ONVW3d NOdn ‘NOILVHYOdHOD GNVY AYMYadS O1 aWvs 
YSQON3eYNNS OL SASYNOV YSHLYNA GNV ‘NOILWHYOdHOD ONVY AMSNSdS JO NOISSINYSd NALLIYVM 
BHLi HL1IM 1d3DX3S '3SOdyNd ANV YO4 ‘SYHSBHLO AG NOILOV HONS YS4ASNS OL HO'LYUWd NI HO JIOHM Ni 


‘G3SNIVLNOD NISYSHL NOILVNYOSNI SHL YO/ONV INSWNDO” SIHL LINSNVYL YO ASN ‘AdOD '3DNdOwd3ay 


Ol LON S33axu9V LN3idIDSeH SHL'LNSWNDOOG SIHL 4O 1di3D3y S3HL JO NOILVYEACISNOD NI} 


0000 
000} 
0018s 
0019 
0020 
002} 
0022 
0025 
0024 
0025 
0026 
0027 
0028 
0049 
0030 
0031 
0032 
0033 
0034 
0055 
0036 
0057 
00356 
0039 
0040 
0041 
0042 
0043 
0044 
004s 
0046 
0047 
0048 
0049 
0050 
0031 
0052 
0053 
0054 
0055 
0056 
0057 
0056 
0059 
0060 
0061 
0062 
0065 
0064 
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em ee ee ee me ee me enn DY 6 neem decom! 


8622 
B642 
B662 
8682 
8702 
a722 
B742 
B74 
8744 
8745 
B7u6 
8747 
8748 
B749 
8750 
8751 
8752 
8753 
8754 
8755 
8756 
8757 
8762 
8763 
8764 
8765 
5766 
8767 
8768 
8769 
8770 
8771 
B772 


B88 
8368 
358 
886 
88B 
B88 
6588 
868 
888 
688 
3868 


S86 
8868 
888 
8868 
886 
836 
688 
886 
886 
868 
886 
8868 
B36 
885 
8868 
888 
886 
888 
888 
88. 
888 


eacooooaoccoccooococcoaocoeqocoooo0oocooceo s 


8661 
866} 
B701 
8721 
B74! 
8641 
8014 
8026 
9038 
BO50 
8062 
B074 
BO84 
8098 
8019 
BO31 
8045 
8055 
B067 
8079 
B09} 
B112 
6319 
6331 
8343 
8355 
8367 
8379 
6391 
8207 
B24 
8336 
8348 


8642 
8662 
3682 
8702 
8722 
8622 
a802 
3802 
8802 
8802 
8802 
8802 
8802 
8802 
9802 
asda 
8802 
$802 
8802 
ab0a 
8802 
a802 
gooc 
gaoc 
good 
ooac 
Qo00c 
oo0c 
900c 
ele l ate 
Qoo¢ 
gooc 
gooc 


BSAH 
INIT 
ROOOCO 
00000 
Fo000 
¢o000 
80000 
€o000 
Yoood 
voooo 
ToO0oO1 
JOo01 
60000 


UOo0g 
Uo020 
Yoduo 
U0060 
voooo 
voo2o0 
To00!1 
16002 
109005 
¥o00a8 
19005 
10006 
19007 
T0008 
19009 
10010 
Tooil 
10012 
T0013 
T0014 
19015 
10016 
JO001 
JO002 
J0003 
Jo004 
JO00S 
JO006 
JO007 
Jo008 
JO009 
JoOI9 
JOOLL 


FLO 


NEWL 00001 


£QU 
BLR 
BLR 
COR 
COR 
COR 
cOR 
COR 
COR 
cor 
COR 
COR 
HHH 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
LOL 
LOL 
LOL 
LOL 
LOL 
LOL 
LOL 
LOL 
LOL 
LOL 
LOL 
LDL 
LOL 
LOL 
LOL 
LOL 
LOA 
LDA 
LOA 
LOA 
LDA 
LOA 
LDA 
LDA 
LDA 
LOA 
LOA 


8999 
4200 
4000 
0200 
0200 
0201 
0020 
0080 
0040 
0020 
0020 
0020 


UGO39 
udgs9 
UG079 
vool9 
voo39 
U0019 
FOOLS 
FO025 
FO037 
FOOa9 
FOO6) 
FOO7S 
Foo0as 
£0097 
FOO18 
FO030 
FOOu2 
FOOS4 
FOO0G6 
£0078 
FOO90 
FOLLI 
co118 
C0130 
cO142 
c01$4 
C0166 
CO176 
C0190 
C0006 
cn1235 
C7135 
C0147 


00000 


8419 
%199 


yoOo2d 
U00SO 
Ud060 
vOo00 
v0020 
yOo00 
THAR 
TBAR 
TBIR 
TBLR 
TB1 
TBLR 
TBIR 
TBLIR 
TBR 
TBIR 
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0150 
0151 
0132 
0135 
0154 
0155 
0156 
0157 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 


8679 
83FH 
BaFH 
BSFH 
3SFC 
SOFC 
B7FC 
B7AC 
S8AH 
B4A8 
BIAB 


B7i2 
BOOA 
BOLA 
BOA 
8713 
BOSA 
BO4A 
BOSA 
806A 
SO7A 


386 
388 
388 
388 
888 
886 
885 
386 
3868 
888 


388 


8588 
388 
888 
388 
885 
888 
8868 


88B 
886 


OOooeoooacoooo cecoaeaeacocoonanos 


HHHH 
0000 
0060 
0000 
0000 
0000 
0000 
60000 
2000 
2220 
0000 


BiFs 
Bares 
BSFS 
8713 
o00s 
BOSA 
8715 
0600 
OHHH 
oooc 


HAH 
Q000 
0000 
9900 
9000 
09000 
9900 
0000 
Q000 
9000 
4000 


BOOA 
BOLA 
G02a 
a713 
803A 
BO4SA 
805A 
BOGA 
SO7A 
SO06A 


LINEO 
FLAG 
ACCUM 
MUMI 
MUML 
COMI 
KEY 


HSB 
HS61 
BLA 
BLR 
COR 
PSUDX 
EQu 
MHH 
FLO 
ENO 
NEW 
CON 
NUM 
ZON 
PaT 
ALF 
OFF 
TyP 
PUNNY 
BOP i 
ROO10 
ALEV 
MLEV 
CLEV 
ALOC 
MLOC 
CLoc 
MUML. 
FUNNY 
456 
HSB1 


SRCHS 


Se ee ce i a as ey ee ee en ee ee ee A ce 


£av 
EQU 
£QU 
EQU 
£QU 
EQU 
EQU 
EQU 
EQU 
EGU 
Eau 
EQU 
FQu 
£ QU 
EQU 
EQu 
EQU 
£QU 
EF QU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
£QU 
EQU 
EQU 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
HHH 
STA 
STX 
STL 
CLA 
SUR 
ATL 


MUL A 


SHR 
IIR 
ERS 


83AC 
B4AC 
@SAC 
B6AC 
B7AC 
BSAC 
B9AC 
ROAB 
B4AB 
B9AB 
BOAG 
BLAG 
B24aG 
B3AG 
BSAG 
85AG 
B6AG 
B7AG 
BEAG 
BOAH 
BLAH 
B2AH 
B3AH 
B4AH 
85AH 
B6AH 
B8AH 
89AH 
HHHHH 
90000 
00000 
00000 
00000 
00000 
00000 
00000 
00200 
22222 
00000 


EXITS 
EXIT2 
TEMP 


Ri 


10010 
64600 
OHHH 

RX 


ala alata 
009600 
00006 
90000 
00006 
00000 
00000 
00000 
00000 
00000 
089000 


01001 


a@ © 


w” 


LINE COUNTER IN OUTPUT BUFFER 
ERRORS ON LAST ERRONEOUS LINE 


CONTROL OPS STARTING LOCATIONS 


BOOA =~ 899F PART OF CORE USUALLY UNAVAILABLE 
WHAT QADAAD CHOOSES FOR H 
HIGH“SPEEO BANDS 


SYMBOL, TABLE SEARCH (SRCH#) 

THIS SUBROUTINE LOOKS UP A 5“CHARACTER 
QUANTITY TO SEE IF IT IS IN THE SYMBOL TABLE. 
OP-CODES*REGIONAL ADDRESSES+PAIR ADDRESSES + 
AS WELL AS SYMBOLIC ADDRESSES ARE KEPT IN THE 
SYMd0. TABLE. THERE ARE TWO EXITS eOEPENDING 
ON WHETHER THE SYMBOL IS OR IS NOT IN THE 
TABLE. ALL REFERENCES TO THE SYMBOL TABLE 

ARE MaDE VIA SRCHe, 

SCRAMBLE 





0149 
01350 
O1LS1 
0152 
0155 
OLS 
0155 
0156 
0157 
0156 
0159 
0160 
0162 
0162 
0165 
0168 
0168 
0166 
0167 
0168 
0169 
0170 
O1723 
O172 
0173 
0178 
0175 
0176 
0177 
0178 
0179 
0180 
03823 
0162 
0185 
01648 
0185 
0186 
0387 
0168 
0189 
0190 
O19 
0192 
0195 
0194 
0195 
0196 
0197 
0198 


Flarul 
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806A 


8716 
9717 
8715 
BOSA 
BiGA 
3719 
8721 
Bila 
8722 


8720 
8718 


B725 
Bi2A 
Gi3sa 
Sida 


BiSa 
8725 
Bl6A 
B726 
8727 
Gi7A 
BlBA 
3729 
B19A 
S20A 
8730 
Baia 
B22Aa 
8680 
5681 
8662 
3667 
B23A 
B24A 
8733 


B58 
856 
588 
888 
838 
388 
8865 
888 
858 


886 
688 
888 
888 


886 
386 
698 
886 
866 
888 
886 
885 
858 
836 
888 
886 
888 
838 
888 
686 
88B 
588 
688 
886 


CooaoceocwumMmmoooaocooaoowmoao corsa 


30 
20 
29 
82 
70 
99 
99 


54 
29 


83Fs8 


8717 
0000 
1000 
8718 
B719 
9999 
0023 
B722 
$000 


1000 
2000 


BOFS 
B707 
8728 
S3F6 


8725 
SiFC 
0000 
oo0oc 
8685 
8728 
B729 
BOFH 
8664 
Q008 
8680 
8664 
0001 
1000 
10606 
1000 
0008 
g00a 
B731 
5732 


8716 


Q00A 
8715 
BO9A 
SLOA 
8720 
9999 
Sila 
3715 
0000 


BiFs 
B2F6 


Biza 
Bisa 
Bisa 
BSA 


8725 
BI6A 
8726 
B727 
SL7A 
Bi8A 
8730 
BI9A 
G20A 
a727 
BAA 
822A 
3730 
0488 
0388 
0688 
8254 
B24 
3731 
S25a 





&SRe 
-SR2 


&SRi 


~SR1 


FARGs 


vooo0nd 
OOO] 
UO002 
Vo0oo5 


LOL 


SUF 
LIRR’ 
LDA 
TE 
ADD 
CON 
TiRi 
ADD 
CON 


STLi 
LDAL 


STL 
LOX3 
ADOA 
STA 


CLL 


LDAA 


LOAS 
TEGE 
TIRS 
CON 
CON 
CON 
LOA 
$U8 
CLL 
TEG 


TEMP 


6000 
STAB 
3aF 


99999 
0025 


99900 


STAS 
ETAB 


ExIT 
AH 
00000 
TemMP 


PANIC 
0000 


yoo0s 
00000 


HTAG 
voo000 
RL 
ug000 
voo00 
0001 
00100 
00100 
001900 
AL 
Ra 


\F 


&SR2 
RA 
~SRi 
99999 


“SR2 
00000 


EXITi 
EXIT2 


10000 


aF 
3aF 


00888 
SF 


3B 


38 

0048s 
O03B3 
Q0as8a 


I OOO 'SU MPAA ENS ee EEE ee EYE pa Ee 
- * Od icomepenenmemmnenntliamanmmenanemnonaattl 


% THE SYMGOL IS CONVERTED TO A THREE-DIGIT NUM« 
BER To INDICATE WHERE THE SEARCH WILL START. 
X THIS SPEEOS UP THE SEARCH CONSIDERABLY. 


S2e SYMBOL 3 TABLE 
EQ: IF THE SYMBOL Is AT THIS PLACE IN THE 
TABLE se GO TONDEF. 
NEQs 
$3. TABLE ZERO 
£Qt IF THe TABLE ENTRY IS ZERO,GO TOMS, 
NEQSOTHERWISE WE MOVE TO THE NEXT TABLE ENTRY 
x AND RETURN TOHS2. 
$4. NOT FOUND. 
WE HAVE ENCOUNTERED A NEW SYMBOL SINCE THE 
x TABLE IS INITIALLY ALL ZEROES. 
x STORE THE NEW SYMBOL IN THE TASLE HERE 
AND GO TOAMUNDEF, 
CODING DETAILS? 
ON INPUTe RL IS THE SYMBOLe RA IS UNDEF. 
AND RX IS DEF. OUTPUT IN RBL IS THE LOCATION 
In THE TABLEe AND IF DEFINEO THE EQUIVALENT 
OF THE SYMBOL APPEARS IN RAs THERE 3S ROOM 
FOR 1000 SYMSOLSe IF THE 1OOIST SYMEO. 
COMES ALONGe THE MACHINE LOOPS INDEFINITELY e 
Fe FINO ANO RESERVE BEST LOCATION (FARB*) 
THIS SUBROUTINE IS USEO To CHOOSE LOCATIONS 
FOR A M OR C¢ ADDRESSES OF INSTRUCTIONS. 
THE CORRESPONDING H-FIELD IS INTERPRETED AND 
x THE CHOICE 1S MADE ON THIS BASIS, 


Pie EXAMINE H=FIELO 

C é$If If SPECIFIES C(CORE) GO TOFS, 

) $ tf iT SPECIFIES D(DRUM) OR IS BLANKe 

GO TOMFS WITH ROG SET TY Oe 
H IF IT SPECIFIES H(HIGH SPEEO BANDS) > 
GO TOFS WITH RBG EQUAL TO 2. 

NNNSTHREE NUMERICS OR +NN MEANS A HAND-PICKED 
_ LEVEL OR A CHANGE IN LEVEL ON THE ORUM: TOMF de 
NNSTWO NUMERICS MEANS A HANDPICKED HIGH SPEED 

LEVEL.« GO TOMF2, 
ERRSANY OTHER MEANS THE H=-FIELD IS IN ERROR. 
GO TO#SFS AND TREAT AS BLANKe 


0199 825A 868 
0200 826A 858 
0201 B27A 885 
0202 S28A 888 
O205 8735 988.5 
0208 8732 3888 
0205 829A 888 
0206 8737 6885 
0207 8739 838 
0208 850A 388 
0209 8736 888 
0210 831A 88s 
0231 832A 888 


30 87335 826A LOLA 90000 00400 

82 6734 G27A TEG SF 

OG 0001 828A TIR3S 9003 

30 87358 8736 LOL ERR Ls 

0G 9999 9684 IIRS 9999 voo00 

25 QO0O8 &29A i LOA RL 

70 #8737 a738 aDD “NU 

00 7000 9000 CON 00700 90000 

70 #BSFB 830A &NU AOD TEMP 

60 BSFS8 8484 STA TEMP vOO00 

OF 9998 a3lLA “NU IIRG 9998 F2. USE HAND LEVEL 

60 GIFC 832A STA PANIC THE H=FIELO SPECIFIES A HAND PICKED LEVEL. 
65 83F8 a740 STX TEMP aF THIS SUPERCEOES THE LEVEL CALCULATED 


7 Heand 
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Owuwo0cerrtFoodacoowmoodcnrcde 6e OC . 
\ 
w 


0212 873% 386 8741 855A 3 LDA 00000 OOOHH BY QADAADe ALTHOUGH IT WILL 3E CHECKED 
0245 B3I5A 3888 0 60 BiFc s34A STA PANIC LATER BY THE AJST* ROUTINE, 

0214 B354A 883 35 O00C a35A ERS RX 

02is B55A 8868 0 60 O3FR 38740 STA TEMP aF 

0216 8740 886 5 07 9999 a6a4 2 IIRG 9999 voo00 

o2i7 9664 8868 107 Q000 8742 voooo0 IIR2 0000 aF F3e ADJUST FOR PAIRS 

0218 B686 6888 1 07 O00O s?42 vo0od TIR2 9000 aF IF RB2 CONTAINS 8 AT THIS POINT WE HAVE 
0219 8742 888 0 70 a745 9744 2 ADD ~F } A PAIR ADORESS+ AND RB6 IS INCREASED BY Ile 
0220 8743 888 0 99 9995 9000 CON 99999 309000 THE CALCULATEO LEVEL IS ADJUSTEO 1 IF IT IS 
0221 8744 888 0 26 G7H6 3746 ~Fi CLA SF A MINUS=PAIR ADORESS:e RBG IS NOW EQUAL TO? 
0222 874S$ 868 5 07 OO01 836A &F1 TIR6 QOOO1 O# LOOK ON ORUM 

0225 836A 888 3 07 0000 A746 IIR3 0000 3F 13 LOOK FOR PAIR ON ORUM 

0224 8746 6888 0 60 s4Fa 98747 3 STA TEMP “FAR 2% LOOK FOR HIGH SPEED 

02245 X 38 LOOK FOR PAIR ADDRESS IN HIGH SPEED AREA 
0226 X THE SETTING OF R@6 IS USED TO CONTROL THE 
0227 X APPROPRIATE OPERATIONS BELOW. GO TOMFa, 
0228 8668S 886 07 9000 837A voool IIR2 0000 F4e ROOM IN CORE 


0229 837A 888 
02350 8749 886 
0251 8750 888 
0252 8751 #888 
0233 8752 9888 
02354 858A 688 
0258 859A 68988 
0256 8755 488 
0257 8754 6888 


70 8749 @a750 ADD -FQ9 If R82 CONTAINS § WE HAVE A PAIR ADDRESS AND 
99 9995 9000 CON 99999 50000 MUST RESERVE 2 LOCATIONSs OTHERWISE 1 LOCA 
07 0061 8752 ~F8 IIR 900) iF TION IN COREs IF THERE IS NO ROOM LEFT IN 

07 0002 438752 are IIR =6.g002 if NOt THE 8000-8999 AREA, A SEMICOLON ERROR 

70 83FC 838A i ADO CORE INDICATION 1S GIVEN ANG WE TRY HIGH SPEED 

05 QOOA a39A LOX RA ACCESS BY GOING TOAF3. 

70 8753 a754 AOD “F9 YES: 

99 9000 9000 CON 99900 00000 

65 83FC as0A -F9 STX CORE F5. ASSIGN CORE ADOR. 


0238 BS0A B86 BS6AB B41A STX RBO CALCULATE THE EQUIVALENT OF THIS AODRESS 
0239 841A 886 @ 07 8999 GH2A IIR 9999 ANO THE ADORESS ONE LESS IN CASE OF A PAIR 
0240 842A 88B 0 60 8695 B43A STA 10003 ADDRESS: AEXIT. 

0241 B43A 888 8 OF 0001 a756 IIR 0001 FAREX 

0242 8755 888 0 25 B758 aUaA aro LOAA 90000 00005 

0243 B4uA 888 0 0S 8759 8760 LOX ERR2« 

0248. 8759 888 0 00 8761 8761 JMP 

0245 8761 888 5 07 0001 49686 TIRé O00) v0002 

0246 8747 888 0 25 G3FB a4uSa ~FARB LOA TEMP Foo INITIALIZE | 

0247 B45A 888 6 37 O400 846A SHL =. g400 CALCULATE THE STARTING ORUM LEVEL s+ AND ALSO 


Ooocowoooec@caceacoocao & 
a 
if 


0248 846A 888 9 70 SHFB aN7~ ADD =TEMP1 MaKe aN EATRA COPY OF LEVEL 199 AS LEVEL <1 


IN CONSIDERATION OF THE RECEIPT OF THIS DOCUMENT, THE RECIPIENT AGREES NOT TO 


REPRODUCE. COPY, USE OR TRANSMIT THIS DOCUMENT AND/OR THE INFORMATION THEREIN CONTAINED, 
WRITTEN PERMISSION OF SPERRY RAND CORPORATION, AND FURTHER AGREES TO SURRENDER 


IN WHOLE OR IN PART, OR TO SUFFER SUCH ACTION BY OTHERS. FOR ANY PURPOSE, EXCEPT WITH THE 
SAME TO SPERRY RAND CORPORATION, UPON DEMAND 


DIVISION OF SPERRY RAND CORPORATION 
PHILADELPHIA, PA. 


IN CONSIDERATION OF THE RECEIPT OF THIS DOCUMENT. THE RECIPIENT AGREES NOT TO 


REPRODUCE. COPY, USE OR TRANSMIT THIS DOCUMENT AND/OR THE INFORMATION THEREIN CONTAINED. 
WRITTEN PERMISSION OF SPERRY RAND CORPORATION, AND FURTHER AGREES TO SURRENDER 


IN WHOLE OR IN PART. OR TO SUFFER SUCH ACTION BY OTHERS, FOR ANY PURPOSE, EXCEPT WITH THE 
SAME TO SPERRY RAND CORPORATION, UPON DEMAND 


0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
9263 
02648 
0265 
0266 
0267 
0268 
0269 
0270 
O271 
0272 
0273 
0274 
0275 
0276 
0277 
0276 
0279 
02680 
0281 
0282 
0263 
0284 
0285 
0286 
0287 
0268 
0289 
0290 
0291 
0292 
0293 
02948 
0295 
0296 
0297 
0298 


BOTA 
BS6A 
849A 
8642 
864i 
8762 
8763 
SS0A 
8643 
5644 
3766 
8765 
SS1A 
8767 
BS2A 
8768 
853A 
B630 
8631 
SSA 
BS5A 
8770 
8632 
B56A 
BOTA 
BS6A 
B59A 
B6OA 
B6iA 
B62A 
BESA 
BONA 
B65A 
BG6A 
867A 
8629 
8771 
S63A 
B69A 
B70OA 
BTLA 
8775 
8773 
S7ZA 
8645 
8646 
6647 
a648 
8769 
B73A 


u8B 
888 
886 
588 
886 
885 
886 
888 
88s 
688 
3868 
886 
8586 
8865 
888 
886 
888 
858 
688 
888 
888 
8868 
888 
688 
888 
888 
688 
B88 
886 
68s 
886 
B88 
888 
88s 
886 
@36 
888 
886 
888 
BBB 
BSB 
888 
888 
888 
888 
856 
5868 
58S 
888 
8868 


eooco Cocewmecoooceoceacceacoaoonaeacaeoaooawmoocooocecoccowcnc |. 


S47A 
89ac 
8641 
8762 
8762 
6000 
8768 
O00A 
B766 
5766 
oocH 
BeAB 
A767 
5617 
8417 
8418 
8629 
8417 
8468 
B35i8 
8568 
Bas 
8417 
000A 
5468 
8467 
Ogoc 
Q00A 
8518 
8517 
oooc 
GOOA 
8568 
8567 
oooc 
8771 
BiFC 
8773 
BFC 
6774 
8775 
8775 
0001 
B64us 
9860 
9800 
9950 
9950 
B4Ac 
8776 


Busa 
BS9A 
a641 
5763 
8763 
QOAS 
830A 
8765 
8763 
a768 
9000 
GSiA 
3767 
852A 
8768 
8534 
8629 
3629 
854A 
855A 
4770 
8629 
356A 
aS7A 
B56A 
B59A 
360A 
B61A 
862A 
863A 
S64A 
B6SA 
B66A 
BOTA 
9770 
8772 
B66A 
B69A 
370A 
B71A 
8760 
e775 
872A 
8768 
9000 
0000 
9000 
Q000 
OT7SA 
BT4A 


FOO1? 
Foo16 
i 


Fooi8 
FoOoi9 


ed 4 


Fooos 
FO006 


FOQ007 


FOQOOSs 


FoO2O 
Food! 
Fq022 
Foo23 
&F2 


ATL 
STA 
JMP6 
MUL 
MUL 
CON 
ERSA 
ADD 
ERS 
ERS 
CON 
STA 
cLL 
LOA 
STA 
LDA? 
JMP6 
ERS? 
SUF? 
SUF 7 
BUF? 
ERS 
ERS? 
L.Ox 
LOA? 
ERS? 
BUF 
L.OX 
LDA? 
ERS? 
BUF 
L.Ox 
LDA? 
ERS? 
BUF 
TEGO 
LDA 
TEQ 


LDAS 
LOX 
JMP 
LIR7 
ADDS 
CON 
CON 
CON 
CON 
LDA 
TES 


FLAG 
FOO1S 
ir 

ie 
90000 
0000H 
RA 

iF 

iF 
oo00c 
R87 
00200 
Do000 
06004 
FO004 
00000 
00081 
D0101 
00151 
HS8 
00000 


b00S1i 
00080 
RX 
RA 
po0101 
001900 
RX 
RA 
00131 
00150 
RX 


PANIC 


PANIC 
00000 


oF 

6001 
FO0020 
999680 
99980 
99995 
99995 
FLAG 
iF 


aF 
aF 
QOOAS 
HS000 
3F 
3F 


HO000 


~F2 
FOQO4 


iF 
FOQO4 


iB 
2F 


00006 
ERR2* 


=F 2 

00000 
00000 
00000 
900000 


IN CASE OF PaIR ADDRESS PROCESSING, 


F7,. TRY LEVEL 

OK: IF A ORUM ADORESS SATISFYING ALLL THE 
REQUIREMENTS INOICATEO BY ABS EXISTS ON THIS 

LEVELe« GO TOFS, 

NOs 


FS. ORUM EXHAUSTED 
If THE LEVEL WAS HANO CALCULATED: A SEMICOLON 
ERROR IS INDICATED THE FIRST TIME STEP Fa 
TS EXECUTED. 

YEStIF we HAVE GONE ALL THE WAY AROUND THE ORUM» 


A SEMICOLON ERROR 1S GIVEN AND THE ADDRESS 
0000 1S ASSIGNEO. TOAMFL1, 
PARTIF WE HAVE EXHAUSTED THE HIGH SPEEO BANDS» 
A SEMICOLON ERROR 15S GIVEN ANO WE TRY THE 
WHOLE ORUMe GOING TOPFSs. 
NOt OTHSRWISE We STEP TO THE NEXT ORUM LEVEL 
AND RETURN TOMF?7,. | 


LE A TA A A A | LS A A A AY AS LS A A LA A LS FES: RN, RAN (fe: ENTER “Le <SRNNARNNRR’ |: sheen Se emetic eee ee oe Ae nme 
i ce 


tare 
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0299 B74A B88 
0300 875A a8B 
0301 8776 38688 
0302 B76A 888 
03505 8778 #8688 
0304 8779 8868 
0305 S77A BBS 
0306 8760 98868 
0307 B748 986 
0308 8761 6868 
0309 8772 886 
0340 56355 8868 
O341 8762 888 
O3i2 876A 8868 
= 9313 8763 988 
03148 8636 888 
O3545 S79A 3888 
0316 8653 883 
O317 8638 888 
0316 860A 886 
0319 8788 868 
0320 881A 888 
03241 882A 88B 
0342 685A 886 


SO S84AC 875A STL FLAG 

O02 0000 3768 LIR7 0000 -F2 

25 6777 876A i LDA# 009000 00006 

05 8778 8760 LOXx ERR2* 

09 68779 8779 JMP 

07 9998 ST77A TIR6 9996 

70 #8780 8747 AO FAR 

99 9998 90000 CON 99999 80000 

26 B761 8781 &FARB CLA 

60 8695 8756 STA 10001 FARE X 

00 8633 8635 2 : JMP6& £0008 F9e CALCULATE ADDRESS 

25 8418 &8782 FOOI1O LDA? 00001 iF We TRY TO FIGURE OUT WHAT DRUM ADDRESS WE 
35 S84AB 878A 1 ERS HS& MAVE FOUNDe PICKING THE SMALLEST ACCEPTABLE 
82 8783 8784 TES aF ADDRESS ON THIS LEVEL. A SINGLE WORD OF 
07 0050 8772 IIR? 0050 28 SO @ITS IS KEPT FOR EACH DRUM LEVEL 

25 6418 379A Fooi1 LOA? O0001 CORRESPONOING TO BANDS OO THRU 78, THE 5«BITS 
35 8817 3782 ERS? 00000 18 COVER BANDS 00 THRU 18¢ 4@-BITS 20 THRU 38 
25 8418 #8784 Foods LOA? D000) aF AND SO ONe 

25 8418 G8DA FoQo09 LOA? 00001 

33 8417 8784 ERS? p0000 aF 

OS GOOA 43814 2 LOX RA 

35 8785 882A ERSA GaGGG GGGGG 

82 8786 863A TES $F 

35 8767 @SaA ERSA 99999 99999 


0323 B84A 888 0 82 8788 885A TEQ 2F 

0324 385A 686 > 8789 S86A ERSA $8555 §5555 
03245 8864 888 0 82 8790 GB7A TEG 3F 

0326 S874 888 0 25 8791 a792 LOA aF 
0347 6791 88B 0 CH HHHH HHHH CON CHHHH HHHHH 
0348 8790 888 90 25 8793 s8aaA 3 LOAR aHHHH HHHHH 
0329 BG6A 868 0 30 8794 98794 LOL | uF 
0330 87598 388 0 00 2000 9000 CON 90200 00000 
0331 8768 88B 0 25 8795 d89A 2 LOA® FHHHH HHYHHH 
0332 889A 6888 0 30 87964 8792 LOL uF 
0333 8796 688 0 00 4000 000 CON 90400 00000 
033548 8766 886 0 25 8797 3904 i LDA GHHHH oo 
0335 S90A 888 0 30 8798 8792 LOL. 

0336 8798 888 0 60 «40600 9000 CON 00600 90000 
0357 8792 888 09 $0 BB8AB BILLA 4 STL RSS 

0358 591A 888 09 30 COOC 8924 LOL RX 

0339 B92A 888 0 05 8799 48800 LOX iF 
0340 8799 888 0 HH HHHH HAHA CON HHHHH HHHHH 
0341 B860 8868 0 60 S2FC 893A 1 STA MASK 

0342 BISA 3888 35 QO00B B894A ERS RL 

0343 B94A 888 0 82 8801 3802 TES iF 
0344 8801 68868 86 07 O200 <a95A TIRS 0200 

0345 S954 868 0 25 S82FC a96A LDA MASK 

0346 896A 888 32 0100 9900 SHR 0100 i8 
0347 8602 888 5 00 8637 4637 1 JMPS FOO12 FIOseRESERVE AODRESS. 


FUOOCOGHOGOOSCHUOGCECSGCASOGOSCSHOOQOGSGGECAOSCSOSGTFAHABOGAMCOOOUCGOOC“. , 
ww 
wa 


0346 8639 9838 25 68418 a97A FOOLY LOA? pOoO! FOR A PAIR ADORESS THE ADDRESS IN THIS @ANO 


PHILADELPHIA, PA. 
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0549 
0350 
0351 
0352 
0353 
03548 
0358 
0336 
0357 
0358 
0359 
0360 
0363 
0362 
0365 
03608 
0365 
0366 
0367 
0368 
0369 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0377 
0378 
0379 
0380 
038} 
0382 
0385 
0364 
03685 
0386 
0387 
0386 
0369 
0396 
0391 
0392 
0395 
0394 
0395 
0396 
0397 
0398 


BIOTA 
8655 
8640 
8803 
896A 
5637 
899A 
BOOF 
B01F 
B0aF 
BOSF 
8804 
8805 
8806 
8808 
8807 
BQ4F 
BOSF 
SO6F 
8756 
B809 
BO7F 
B0aF 
9810 
BO9F 
810F 
BLiF 
6i2F 
B1LSF 
BLaF 
SisFf 
Blé6F 
Bi7F 
5ieF 
BiSF 
G20F 
B21F 
Baer 
623F 
a2urF 
B25F 
8621 
B26F 
827F 
825F 
329F 
B30F 
S3i1F 
832F 
8355F 


386 
888 
388 
686 
636 
896 
888 
388 
888 
888 
888 
858 
388 
658 
888 
888 
8668 
8868 
886 
588 
336 
886 
888 
886 
888 
88s 
88S 
888 
888 
838 
888 
8868 
ass 
888 
388 
366 
886 
886 
888 
B38 
888 
886 
B86 
88B 
358 
888 
BSB 
686 
888 
886 


SCOoOGOOSOGSGSGOCGCHOSCOCGC CHO GOOCOGCO CK OOD COBO OCOACCHKCOABOOCOBBGOBO OS | 


S2FC 
8417 
8417 
B2FC 
B4i7 
8818 
8417 
8617 
8617 
0000 
B804 
Ba05 


0199 


8808 
0001 
88an 
8695 
0000 
B6AB 
8809 
8694 
8696 
0800 
8706 
87F8 
Sara 
89F8 
8811 
B8i2 
8815 
B614 
8815 
BE16 
6817 
BOFB 
8818 
B21F 
8819 
B9F8 
8820 
BS2i 
SOFC 
B22 
B9F8 
8a25 
S3A8 
5624 
B3iF 
5625 
69F8 


3637 
aa805 
8805 
BO8A 
3639 
B99A 
BQOF 
BO1F 
8O2F 
3O3F 
8804 
8306 
9307 
8807 
99000 
BO4F 
S0S5F 
BO6F 
9786 
8809 
807F 
BOBF 
aors 
BOOF 
Bi0F 
BLiF 
B12F 
BSF 
SisF 
S1SF 
B16F 
Si7F 
BLsF 
B19F 
B20F 
B2iF 
G22F 
825F 
Baur 
825F 
8821 
B26Fr 
a27F 
G2eF 
B29F 
S30F 
asiF 
a32F 
a33F 
a34F 


FOO13 
Foo1s 
b 


FOOI2 


FARE x 


FIND« 


ERS 
LDA? 
LDA? 
ERS 
STA? 
STA? 
LDA 
ERS 
STA 
11R? 
CLL 
TEO 
TIR 


CON 
ADD 
STA 
IIR? 
abd 
CLX 
STA 
STA 
SHR 
LDAS 
STX 
STL 
STA 
LOLA 
TEO 
LDLA 
TEG 
ERSA 
LOLA 
TEQ 
LDA 
ERSA 
MTX 
SUF A 


ERSA 
CLL 
STL 
TEG 
LDA 
ERSA 
STA 
ERSA 
MTX 
SUFA 
ERS 


Mask 
p0000 
DOOoO 
MASK 
po000 
DOOD 4 
poo0ed 
00200 
00200 
0000 


0199 


00000 
RB? 
10001 
6000 
R&9 


10000 
10002 
0400 


A 
DEFX 

UDEFX 
SYMBL 
00000 


BLANK 
20000 
SELF 
HOOOO 
00000 
ABS 
SYMGL 
00000 


OHHHH 
SYMBL 
OHHHH 


INCRE 
REG 
SYMBL 
00000 
RBS 
00000 


HHH 
SYMBL 


FOO12 
iF 
iF 


FOOLS 


fF 
2F 


aF 
10000 
FAREX 


ExT 


8Ba8a 
86a8a3 
HOOOS 
80900 
033353 


60000 
04484 


HOQ00 


30000 


OHHH 


ON 





TWO aDJACENT LEVELS IS RESERVED: 


OTHERWISE A SINGLE ADDRESS IS RESERVED. BY 


TURNING ITS SIT OFF IN THE TABLE, 


AFTER THE 


OPERATION, LEVELS «2 AND 199 ARE COMBINED 


AS 


WEVEL 199. 


FILeFINISH UP 
CALCULATE THE AGORESS ADJACENT TO THE ONE 
FOUND IN CASE OF A POSSIBLE MINUS~PAIR 
ADDRESS: ANOSEXIT. 


CODING 


DETAILS! 


INDEX REGISTERS 1 2 AND 3 ARE NOT CHANGED BY 
FaRae. ON INPUT THe HM FIELD IS SPECIFIED 
BY RB3e THE CALCULATED BEST ORUM LEVEL IS IN 
Rae AND THE EXIT IS IN RL. THE OUTPUT 
LOCATION FOUND IS IN RA ANO AN ADUACENT 
LOCATION 18 STORED IN A SPECIAL TABLE. 
Qe MASTER ADDRESS CALCULATOR (FINO*) 
THIS SUBROUTINE IS GIVEN THE CONTENTS OF 
THE SYMBOLIC AeMe OR C FIELO OF THE CARO ANDO 
ANALYZES IT. THERE ARE TWO EXITS» ACCOROING 
TO WHETHER THE aDDRESS IS OEFINED OR NOT, 
Gie WHAT KIND 


ALKIIF 
ee IF 


REGSIF 
ABS3TF 

60 
NF? If 
NBs IF 
Ni YF 
t—t IF 
NXs I¢ 


BLANK GO TOMG2. 

SELFe GO TONQ3. 

FOUR RIGHTHAND PARTS ARE NUMERIC+e TOHQ4. 
ee gi aad CHARACTER IS BLANK + HOWEVER + 
TO#QS. 

LOCAL FORWARO ADDRESS» TO#0?, 

LOCAL BACKWARD aDORESS» TosGa. 

LOCAL PLAIN ADORESS Ne TONGS, 

PAIR ADDRESS «SET RB2 TO S AND GO TORQ10. 
THe SYMBOL FAILS TO PASS THE ABOVE AND 


BEGINS WITH A NUMERICs GO TONQ6. 
SYMSOTHERWISE IT IS SYMBOLIC! WE SET RB2 TO 4 
AND GO TOAGLO. 


0399 
O800 
0401 
0402 
On03 
0806 
0405 
0406 
O407 
onoe 
0409 
0410 
O4l1 
O8l2 
0413 
0814 
0415 
0416 
0817 
0418 
0419 
0420 
O82} 
08622 
0423 
O424 
0425 
0426 
0427 
O628 
0429 
0830 
04351 
0452 
0855 
0434 
0835 
0436 
Ou 57 
0438 
0859 
0440 
O94} 
0442 
0443 
0444 
0445 
0446 
O447 
0848 
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en ee Ra item tl me! NS ne NE RN NUE tet ee ee 
: a 


a3uF 
835F 
a36F 
a37F 
83eF 
a3oF 
B4OF 
B41F 
a42F 
B43F 
B4uF 
Bas 
a4or 
B47F 
e838 
a4er 
S4oF 
8837 
a835 
8842 
a812 
g8u3 
aSoF 
Bana 
g614 


8622 
851F 
8S52F 
855F 
S54F 
BS5F 
3817 
BS6F 
8848 
857F 
8850 
85aF 
BSF 
860Fr 
8840 
8855 
8852 
B61F 
B6aFrF 
BOSF 
B64F 


888 
886 
88B 
888 
888 
386 
888 
888 
888 
68.8 
886 
688 
85B 
888 
888 
388 
e6B 
886 
88B 
888 
886 
888 
B88 
888 
888 


886 
886 
888 
388 
868 
886 
886 
888 
338 
348 
| 
888 
886 
886 
888 


aes 
888 
888 
886 
868 


ococacooooocococorooccse 


35 
30 
82 
30 
82 
30 
82 
25 


30 
82 
30 


31 
35 
82 
02 
02 
02 
02 
3i 
25 
02 


62 


25 


25 
35 
60 
25 


02 
25 
ai 
35 
82 
25 
35 
75 


82 


30 
26 


35 


70 
70 
32 


BS26 
8827 
B828 
8829 
8850 
88351 
8632 
89F5 
9835 
8834 
BS55 
8836 
6837 
64838 
8839 
8840 
00048 
0001 
0000 
0005 
Bsus 
B4FC 
0002 
Bars 
BSFC 


89F8 
Ba4s 
BOFC 
BOFS 
B8us 
0000 
O9F8 
8848 
Ba49 
8850 
B9F8 
8851 
QOOA 
8852 
8855 
BYFB 
B9FB 
8854 
QOOOA 
OOOA 
0800 


835F 
a36F 
as7F 
aser 
a39r 
auor 
asiF 
Bu2F 
as3r 
gauge 
ausr 
ader 
as7F 
as3e 
ader 
B49F 
g641 
asu2 
gau2 
asa} 
aaa3 
aSOF 


gauy 


87F8 
87FB 


asir 
aS52F 
BS5F 
8SaF 
855F 
8847 
aS6F 
Asse 
aS7F 
8640 
aS4P 
@59F 
G60F 
8840 
3736 
87FS 


aGir 


862F 
365 
Q64F 
ao5SeP 


MINUS 
PLUS 
BLINK 
FEX 
SELF 


REG 


ABs 


ADERR 


ERSA 
LOLA 
TEQ 
LOL&# 
TES 
LOL’ 
TEQ 
LDA 
ERSA 
LOLA 
TEC 
LOL” 
TES 
CLL 
ERSA 
TEO 
LIR2 
LIRS 
LIRS 
LIR2 
CLL 
LDA 
Lire 
TES 
LDA 


LDA 
ERS 
STA 
LDA 
ERSA 
LIR2 
LDA 
CL. 
ERSA 
TEQ 
LDA 
ERSA 
sus 
TEO 
LOL 
CLA 
LDA 
ERSA 
400 
ADD 
SHR 


HHHHH 
01000 
LOCF 
01000 
Loce 
00000 
LocL 
SYMBL. 
HOO00O0 
1000u 
PLUS 
00000 
MINUS 


HOOO0O 
ADERR 
0004 
0001 
0000 
0005 


BLANK 
0002 

UDEFX 

ALOC 


SYMBL. 
00000 
INCRE 
SYMBL 
HOOOU 

0000 
SYMBL 


02222 


SYMBL. 
HHHHH 
RA 
iF 


DEFX 

SYMBL 

oii. 

RA 

RA 
0500 


BHHAH 
06888 


02888 
08885 
HOOO0O0 
C0900 
AOQ06 


00000 
LOOK 1 
LF 


iF 
LOOK 


FEA 
OEFX 
O&F xX 


OHHHH 


HOOO0O0 
LOOK 


00006 
ADERR 
OHHH 
ADERR 
ERR) «* 


00009 


Q2e BLANKS ZERO 
EQL3IF "@LANK? IS ZERO, THE SLANK ADORESS IS 
UNDEFINED s AND WE GO TOPUNDEF + 
NEQ? €LS€ TODEF, 
Q3. "A* LOCATION 
x THE * 1S DEFINEO AS THE VALVE OCF A LOCATION: 
x IF IT APPEARS IN A, OR IN CERTAIN CONTROL OFS 
x IT 18 THE VaLVE Of THE PRECEDING A LOCATION. 
x TORDEF. 
Q4e CHANGE TO ROQQ. 
CHANGE THE REGIONAL ADORESS TO ROQOG aNO SET 
Ra2 To ZERO, WE GO THEN To LOOK THIS UP 
IN THE SYMBOL TABLE AT STEPSQIO, 


Q3-e PROCESS ASS ADOR. 
BADIIF ANY PART OF THE ADDRESS I3 GLANK OR 

MAS ZONES OF 2 OR 3e GO TOMQ46+ OTHERWISE 

USE THE ZONES TO PRODUCE UNDIGITS FOR ABCFGHse 
OK? AND SENO THE RESULTING AODORESS TOADEF. 


Q60e ERROR 
SET UP ERROR FLAG FOR CURRENT FIELO 
ANO SET THE AODRESS TO ZERO. TORNEF. 


Flan 
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ouug 
0450 
0451 
0452 
0453 
Ou5a 
0458 
0456 
0457 
o4se 
0859 
0460 
0861 
ONez 
0463 
0864 
O46s 
0466 
0467 
ON6s 
0469 
0470 
O87) 
0472 
0873 
0474 
0478 
0876 
0477 
0476 
0879 
0460 
048} 
0462 
Ouss 
oues 
O4as 
0486 
0487 
0488 
0489 
0490 
O89! 
0492 
0893 
0494 
Ougs 
0496 
ONS? 
O498 


B6SF 
BOOF 
a85s 
5626 
B67F 


8856 
8830 
B66F 


8857 
8832 
BO6O9F 
88538 
870F 
S71F 
872aF 
864} 
8647 
B73F 
B70F 
8859 
375F 
3860 


3861 


3619 
B76F 
S77F 
3o78F 
B79F 
SS8or 


688 
886 
385 
3568 
888 


386 
858 
358 


888 
8986 
888 
858 
3868 
866 
B88 
568 
888 
388 
888 
886 
88s 
888 


ses 


866 
856 
838 
S36 
388 
368 


Oe Gwooc . 


Ceocoacooudrwow o 


ooaccos 


00 


05 
25 
75 
32 
70 
35 


B9FS 
88S5 
0000 
6649 
8856 


0001 
B659 
8857 


Bako 
8649 
bass 
8649 
0003 
8ars 
8659 
89F8 
8847 
8aFrs 
8as9 
BOFC 
B860 
0000 


5619 


0004 
8862 
BOFC 
QFOO 
Q0oc 
8865 


866F 
S7F8 
HHHH 
a67F 
8856 


Ba44 
BOeF 
g437 


87F8 
B69F 
8858 
BTOF 
a7 iF 
87 2F 
87F8 
@847 
87 3F 
B74F 
8712 
B75F 
B7F8 
HHH 


3619 


376F 
a7v7F 
378F 
379F 
ASOF 
8425 


LOCr 


LOcs 


LOC. 


LOOK1 
LOOK 


DEFPN=s 


£0000 


SUF 
ERS 
CON 
LDAS 
cul 


LIR2 
LDAS 
CLL 


TES 
LOAS 
CLL 
STLS 
LIR2 
TEO 
STAS 
LOA 
ATL 
LOA 
LOX 
ABD 
ERS 
CON 


JMP2 


LOX 
LOA 
SUB 
SHR 
ADD 
ERS 


SYMAL. 


o0000 
190000 


000) 
J0000 


ADERR 
10000 


10000 

00035 
UBEFX 
J0000 
SYMBL. 


UDEFX 
INCRE 
00000 


£0000 


RA 

90000 

INCRE 
OFOO 


DEF X 
OHHHH 


FEX 


DEF X 


DEFX 
LOOK 


SRoM* 


DEFX 
OHHHH 


10000 


EQ004 





A7e I(N) ZERO 
EQ: If THe FORWARD LOCAL TABLE ENTRY FOR N IS 
x ZeRo 17 1S UNDEFINED*WE GO TOMUNDEF, ELSE IT 
NEQs 18S DEFINED ANOACEF. 
Q&S. J(N) 8 ZERO 
£Qs IF THE SACKWARD LOCalL TABLE ENTRY FOR N IS 
x ZERO IT 1S UNDEFINED ANO WE GO TOMG6 SINCE 
x THIS SHOULON¢T HAPPENe ELSE IT IS A 
NEGINEFINED ADDRESS WHICH IS SENT TOMOEF. 
Q9e TIN) 8$ZERO 
FO: IF THE FORWARD LOCalL TABLE ENTRY FOR N IS 
ZERO THIS ADDRESS 1S UNDEFINED: GO TOXUNDEF. 
NEQtELSE IT IS DEFINED AND WE TRANSFER IT TO THE 
RACKWARD LOCAL TABLE AND EXIT ToO#DEF. 
IN EITHER CASE RESET FORWARO LOCAL ENTRY Oo 
Q10-SRCH* 
SEARCH FOR THE ITEM IN THE SYMBOL TABLE. 
DEF STF FOUND.GO TOFSDEF,ADYUSTING FOR REGIONAL 
ADDRESS IF NECESSARY. IF NOT FOUND: We GO 
UNO! TO #UNDEF e 


cae OE TAILS! 

INPUT TO FIND* IS DEF IN RX ANDO UNDEF IN RLe 

RBS CONTAINS THE FIELO TO BE EXAMINED, 

AT EXIT DEFe RA CONTAINS THE DEFINED 

FQUIVaLENT IN ITS ¢ ADDRESS POSITION.’ 

AT EXIT UNDEFe RB2 CONTAINS INFORMATION 

ABOUT THE TYPE OF ADDRESS aS FOLLOWS! 

Ot REGIONAL 

1? LOCAL FORWaROG WN IS IN RBS 

2% BLANK 

38 LOCAL PLAIN N IS IN RBS 

J: SYMBOLIC SPOT IN SYMBOL TABLE IS RBi 

K: PAIR ADDRESS RBS 18 O FOR Be 1 FOR =e 

DEFINE AOORESS (ORFN®) 

THIS SUSROUTINE IS USED AFTER FINO® HaS 

DETERMINED AN ADORESS [3 UNDEFINEG. IF THIS 

1S NOT AN ERROR CONOITIONs SOME WAY OF 

CALCULATING AN ADORESS,+ USUALLY FARB*, IS 

USED aNO THEN THIS ROUTINE DEFN*® TAKES OVER. 

Sle WHAT TYPE 

REGSIF THe aDORESS TO BE DEFINED IS REGIONAL? 
GO TOaDa2. 

NFi TF LOCAL FORWAROcENTER IN [I TASLE ANDSEXIT. 

SLKtIF GLANKe ENTER IN "BLANK? ANQSEXIT. 

Nt IF LOCAL PLAIN, ENTER IN J TABLE ANDSEXIT. 


MM MMMM MM K 0M MOK 
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0499 
0500 
0501 
0502 
0505 
0504 
0505 
0506 
0507 
0508 
0509 
0810 
0311 
0912 
0513 
0514 
0515 
0516 
0817 
0518 
0519 
0520 
0521 
0$22 
0543 
0528 
0525 
0526 
0527 
05248 
0529 
0530 
0$51 
0332 
05355 
0S34 
05558 
0536 
0537 
0538 
0539 
0540 
0$41 
03542 
0345 
0544 
0845 
0546 
OS47 
0548 


8865 
8620 
8625 


Be22 
a623 
8624 
S81F 
a62F 
8864 
Ba3F 
asuF 
BasF 
g86F 
B697 
8865 
B698 
8867 
8666 
887F 
88608 
B869 
BS6F 
B870 
BOF 
B9OF 
8871 


B91F 
a9eF 
8872 
8873 
B93F 
BIKF 
8878 
B9SF 
B96F 
897F 
S9eF 
B99F 
8877 


386 
886 
388 


886 
688 
5868 
B88 
888 
888 
688 
888 
886 
888 
888 
888 
888 
886 
886 
8868 
386 
a88 
688 
888 
888 
888 
a8s8 


858 
888 
538 
886 
888 
886 
836 
866 
886 
B88 
888 
886 
885 


ows |. 


eOocacocooeoce oc 


Qo 
60 
60 


60 
64 
50 
25 
06 


32 


64 
60 
29 
00 
35 
OH 
20 
io 
77 
25 
00 
25 
06 
32 
64 
25 
50 


0000 
8649 
QGFC 


8659 
2000 
BSFC 
8694 
Baen 
0400 
2060 
BaFS 
1000 
8697 
6665 
HHHA 
8867 
oo0oc¢ 
5866 
6968 
8869 
5695 
8870 
0400 
2000 
S4FB 
BOF 


QOOA 
8872 
0000 
Qd008 
8874 
89FH 
B4FS 
8a75 
SOFH 
B3F8 
0008 
8876 
B9AS8 


HHH 
0008 
0008 


0008 
0008 
BSiF 
Ba2F 
a864 
a63F 
as4ar 
3asF 
aesr 
8697 
8866 
HHH 
3866 
9000 
S97F 
a712 
8869 
user 
3870 
aa9F 
aoor 
aarc 
B91F 


892F 
aa73 
9000 
895F 
A94F 
8OFB 
aoSe 
B96F 
BO7F 
Bg9aF 
a99F 
a877 
8878 


£0001 
E0002 


E0003 
E0004 
E000s 


19003 
10004 


AJSTs 


CON 
STAS 
STA 


STAS 
STAI 
STL 
LDAS 
CLX 
SHR 
STAl 
STA 
LDAL 
JMPS 
ERS 
CON 
BUF 


ATL 
LDA 
JMP 
LOAS 
CLX 
SHR 
STAl 
LDA 
STL 


LOL 
LDA 
cont 
abd 
TEO 
LDA 
STA 
adda 
sue. 
STA 
LDA 
ERSA 
LOL 


00000 
10000 
BLANK 


J0000 
ETAS 

OEXIT 
10000 


0400 
ETA 
TEMP 
STAS 
19003 


OHHH 
10000 


190001 


0400 
ETAB 
TEMP A 
EXIT 


RA 


90000 
RL 


OFTIM 
TEMP 
00000 
OFPTIM 
TemMP 


RL 
00000 
HSel 


OMHHH 
RL 
AL 


RL 
AL 


iF 
AMHHH 
1F 
C0000 


SRCKR* 


DEXIT 


aF 
00000 


EXIT 
10000 


OHOGO 


SYM8IF SYMBOLIC+s ENTER IN EQUIVALENTS TABLE sREATT 
+=t IF PAIR AODORESSe GO TOs#DS. 

O02. CALCULATE BASE 

REGIONAL ADORESSES ARE DEFINED ONLY By 
CONTROL OPS LIKE BLRe THE OEFINING ADDRESS 
MINUS THE INCREMENTs THE AQDRESS CORRESPON@ 
DING TO RO000+ IS STORED IN THE 

EQUIVALENTS TASLEs MEXAITe 


MM 


O35 STORE TWO. 
THE OEFINED AaDORESS IS STORED IN THE SYMBOL 
TABLE. THEN & IS CHANGED TO =~ OR VICE VERSA 
AND THAT SYMSOL PLUS ITS EQUIVALENT ARE ALSO 
STORED AWAY. THE ASSUMPTION I5 MADE THAT 
FARB« WAS USED TO CALCULATE THE ADDRESSES. 
MEXITs 

CODING DETAIL! 
THE EXIT IS INPUT IN RL AND THE CALCULATED 
ADORESS IN RA. OTHER INPUTS ACTUALLY USED 
ARE R|2 TO TELL THE TYPE. ANO RBI AND RBS TO 
GIVE EXTRA INFORMATION AS SUPPLIED BY THE 
FIND* SUBROUTINE. aT EXITe RA CONTAINS THE 
DEFINED EQUIVALENT, 


AJST# SUBROUTINE. 

THIS SUBROUTINE IS PART OF THE WAY QADAAD 

FINOS LATENCY. AJST*® IS USED ON M ANDO C€ 

ADORESSES. FIRST AN OPTIMUM LEVEL 

*OPTIM® IS CALCULATED BY QADAAD! AUST* USES 

THIS TO FIND THE CURRENT LEVEL+ GIVEN THE 

ACTUAL M OR C ADORESS. 

Ale WHAT TYPE ADORESS 

OOOA IF THE ASSIGNED ADDRESS 0 HAS ANY UNDIGITS 
IT 18 ASSUMED TO BE IMMEDIATE ACCESS AND 
*OPTIM® IS THE ANSWER. REXIT. 

§000 IF THE ASSIGNED ADDRESS D IS ON THE HIGH- 
SPEED BANDS: GO TOHA2. 

OOOOIF THE ASSIGNED ADDRESS O I3 ON THE STANDARD 
PaRt oF THE ORUMe 5 IS THE ANSWER, GO TOHAS. 

Age FIGURE ORUM ROLL 

THE ANSWER IS O-OPTIM MODULO 50+ 

ADDED TO OPTIM. 


* 


Mm MM MK 


mt ae ~ ee cant ee teeta © emetic: | tne Arnette ann i re 
eee et em ents Sent tn ce? te ls | ce nm et = mene 
: 5 


LJ 


Flare 
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IN CONSIDERATION OF THE RECEIPT OF THIS DOCUMENT, THE RECIPIENT AGREES NOT TO 


REPRODUCE. COPY, USE OR TRANSMIT THIS DOCUMENT AND/OR THE INFORMATION THEREIN CONTAINED, 
IN WHOLE OR IN PART. OR TO SUFFER SUCH ACTION BY OTHERS. FOR ANY PURPOSE, EXCEPT WITH THE 
WRITTEN PERMISSION OF SPERRY RAND CORPORATION, AND FURTHER AGREES TO SURRENDER 


SAME TO SPERRY RAND CORPORATION, UPON DEMAND 


0549 
0350 
0553 
0552 
0553 
0554 
0355 
0556 
0857 
0558 
0359 
0560 
0561 
0562 
05635 
05648 
0568 
0366 
0567 
0568 
0569 
03870 
0571 
0572 
0575 
05748 
0575 
0576 
0577 
0578 
0579 
0580 
0561 
0942 
0583 
0384 
0565 
OS&6 
0S87 
0588 
05389 
6590 
0591 
OS92 
0593 
0594 
0595 
0596 
0397 

0598 


8878 
8680 


38e1— 


BS865 
a8au 
8885 
8879 
8867 
8889 
B890 
8891 
8892 
3893 
8886 
8895 
8897 
8894 
8898 
8899 
8900 
B903 
89048 
8905 
8906 
8907 
8908 
8909 
a910 
B91 
8912 
8915 
8918 
8902 
8915 
8917 
8918 
5916 
8920 
B92) 
8922 
8924 
5925 
8926 
8928 
8930 
3931 
8935 
8934 
8935 
3937 


886 
a568 
888 
588 
358 
888 
886 
868 
888 
886 
885 
85868 
858 
886 
888 
388 
6868 
BBB 
888 
888 
888 
886 
886 
886 
856 
888 
688 
888 
886 
888 
838 
3588 
B36 
B88 
8868 


BSB 
356 
B86 
858 
888 
888 
B86 
836 
B88 
386 
898 
6568 
856 
8986 


SCOOGCOCGSSGoOeC Coo ae oOCcoooceooeocooeooaoocooceococaaoec ace aos a | 


8879 
83F8 
68a2 
oo0oc 
8865 
0406 
BSF 
686s 
8889 
B9FH 
S4FB 
Bass 
0000 
Bay 
8696 
8894 
B4FS 
8899 
0000 
8901 
8903 
B3AC 
B906 
0000 
4a03 
84Fs 
BSFB 
0004 
B3ac 
4797 
6914 
9800 
BSAC 
B916 
8918 
4800 
0500 
BiFs 
OO0A 
8925 
8924 
oooc 
8927 
8929 
8930 
8952 
oooc 
000A 
B956 
0008 


4880 
8981 
3983 
aseu 
8886 
0000 
$687 
3889 
8890 
gaol 
3892 
3886 
0048 
8895 
8897 
a760 
9698 
aoFB 
OHHH 
8905 
89048 
3905 
QOOA 
8907 
9908 
8909 
8910 
§9il 
8912 
8915 
3901 
g000 
8915 
8917 
8919 
8916 
8901 
892i 
8922 
3924 
8925 
3926 
a928 
3930 
8951 
A935 
B934 
8935 
3937 
aire 


OTPTs 


&OEX 


UNDGs 


TEC 
LOL 
MUL 
LOL 
LDA 
CON 
LDA 
ERSA 
ATL 
ADD 
STA 
LDA 
CON 
TGR 
LOAN 
LOX 
LDA 
ERS 
CON 
STL 
aTL 
LDA 
guF 
LIRi 
STX4 
STL 
STX 
TIR3 
STA 
STL 
Abo 
CON 
STA 
LOX 
LOL 
TBL 
TWR 
STX 
LOX 
ERSA 
MTX 


— ERS 


ERSA 
4004 
ATL 
BUF a 
ERS 
L.DXx 
LDAA 
ERS 


iF 
TEMP 
60000 
RX 


990AG 
TEMP 
00000 


OPTIM 
TEMP 1 


00000 
00000 
TEMP 1 


90000 
-0EX 


LINEO 


0000 
700035 
TEMP 
TEMP2 

00048 
LINEO 
79997 
99980 


LINEO 
2F 


70000 
OTAP1 
EXITd 


RA 
33333 
RX 

waaay 
H4agy 


geese 
RX 
waala 
RL 


04005 


aF 
009000 


O00CH 


aF 


— 90048 


OO00A 
ERR2« 


EXIT 
OOHHH 


RA 


=0E X 
00000 


TSUBs 
=OEX 
33333 


4G4G4 
Hy 
86858 


high. 
EXIT 1 


HOAaAo @ 


AS. CHEC< BAD TIMING. 


IF D0 COMPARED TO OPTIM INDICATES A WAIT OF 
ue oR 49 ON HSS OR OF 198 OR 199 ON REST OF 
DRUM, THE ERROR FLAG ~ IS PUT ON THE LISTINGe 


CODING DETAILS! 


INPUT 1S THE ASSIGNED ADORESS IN RA AND THE 
EXIT IN RLe OUTPUT IN RA IS SOME LOCATION 
ON THE APPROPRIATE DRUM LEVEL. 

MEXIT. . 


OUTPUT SUBROUTINE. 

THIS ROUTINE IS USED TO TRANSMIT aN ASSEMBLED 
INSTRUCTION TO THE OUTPUT TAPE, 

TRANSFER 

THE LOCATION IS IN THE FORM RRROSOAAAA SHERE 
RRR ARE RELOCATION DIGITS COPIED FROM THE 
CARDe $ IS THE ASSEMBLED SIGN» AND AAAA [5S 
THE ASSEMBLED LOCATION, MOVE THE LOCATION 
AND THE ASSEMBLED INSTRUCTION INTO THE 
OUTPUT BUFFER. 

BUFFER FULL 

If THE BUFFER DOES NOT HAVE SO INSTRUCTIONS: 
REXIT. 


YES! 
O3e WRITE TAPE 


WRITE THE BUFFER OUT ON THE OUTPUT TAPE AND 
CLEAR THE BUPFER AGAIN WEXIT. 


THIS IS AN EDITING SUBROUTINE BHICH TAKES 

A TEN DIGIT WORD IN RA AND PROOQUCES IN 
COMPUTER COOE THE CONVENTIONAL NOTATION FOR 
UNDIGITS:e ABCFGH. THE ZONE WORD IS PUT INTO 
RAe NUMERIC IN RX aT EXIT, 
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NOT TO 


EIN CONTAINED. 
EXCEPT WITH THE 
ES TO SURRENDER 


IN CONSIDERATION OF THE RECEIPT OF THIS DOCUMENT. THE RECIPIENT AGREES 


REPRODUCE. COPY, USE OR TRANSMIT THIS DOCUMENT AND/OR THE INFORMATION THER 


IN WHOLE OR IN PART. OR TO SUFFER SUCH ACTION BY OTHERS, FOR ANY PURPOSE, 
WRITTEN PERMISSION OF SPERRY RAND CORPORATION, AND FURTHER AGRE 


SAME TO SPERRY RAND CORPORATION, UPON DEMAND 


0599 
0600 
0601 
0602 
0eUS 
Q604 
6605 
0606 
0607 
0608 
0609 
0610 
0611 
0612 
0615 
0614 
0615 
0616 
0617 
06is 
0619 
0620 
0621 
0642 
0625 
0e24 
0645 
0626 
0627 
0648 
0629 
06350 
06351 
0632 
0655 
0634 
0635 
0656 
06357 
0656 
0639 
06450 
0641 
0642 
0643 
0eug 
0645 
0646 
0647 
0648 


4200 
4201 
4203 
4207 
4211 
4215 
4220 
4224 
4029 
4233 
4236 
8036 


4o40 
4045 
8490 
4208 
9212 
4436 
4240 
4OuR 
4420 
4225 
4230 
4038 
404) 
4825 
4430 
4234 
4039 
4O4s 
4048 
4403 
4407 
4412 
4405 


4410 
8938 
8940 
BIG) 
8942 
8945 
B9u48 


688 
888 
855 
686 
888 


88B 
388 
888 
B38 
886 
388 


386 
88s 
688 
a88 
688 
838 
686 
BSB 
Bas 
88B 
888 
8868 
888 
368 
388 
BBB 
BSB 
836 
888 
38B 
888 
838 
58s 


855 
888 
8858 
BBB 
868 
858 
888 


Oocoaoocaoaoacneaecodan 


26 
26 
60 
60 
60 


05 
75 
30 
82 


6S 


a9 
09 


20 
60 
25 
20 
60 
29 
09 
32 
60 
65 


20 
o9 
60 
65 
29 
20 
09 
60 
65 


02 
29 


32 
60 
25 
32 


limpet Aaa sascha cicada a e ak G  T I  e e e geiy ht ee 


4205 
4203 
BOFG 
BOFC 
S6FB 
8001 
OOOA 
BIFG 
4251 
4034 
4i11 
8iFG 


8003 
8009 
0500 
4210 
O334 
oooc 
4042 
0218 
8002 
8008 
0500 
0339 
0225 
8007 
4232 
8006 
0241 
O246 
5005 
8205 
B00u 
0305 
0308 


0000 
3003 
8941 
0300 
8699 
BOFG 
0900 


$205 
4203 
4207 
G2ii 
4215 
4220 
4224 
4029 
4233 
4236 
4036 
4040 


4045 
4400 
4208 
4212 
4436 
$2490 
4ouy 
4420 
4223 
4230 
4034 
4044 
4429 
4430 
4234 
4039 
4043 
4048 
4403 
4407 
4412 
Ha05 
4410 


3938 
3940 
8941 
3942 
G943 
A9NG 
8945 


START 
STRT 


«ST 


HHH 
CLA 
CLA 
STA 
STA 
STA 
LDAI 
LOx 
SUB 
LOLA 
TEG 
HLT 
$TX 


DAL 
OX 2 
SHR 
BUFA 
STA 
LDA 
SUFA 
STA 


LDX} 


SHF 


iF 
iF 


SIGN 
ERROR 
BO001 


INE 
00000 
iF 
tidi 
LINE 


8003 
BOOS 
9500 
S8e86 
0334 
RX 
00008 
6218 
8002 
8008 
0500 
0339 
0225 
8007 
00000 
8006 
O241 
0246 
8005 
00000 
8004 
03035 
0308 


0000 
8003 


0500 


0900 


00001 
iF 


00000 


00003 


00008 


000048 


=ST 


x 


Es EOIT INPUT CARD. 


THIS 18 WHERE THE PROCESSING OF EACH CARD 
STARTS. THE PURPOSE IS TO TAKE THE INFOR}~ 


MATION FROM THE INPUT TAPE AND TRANSFER IT 

TO THE PRINTER AREA READY TO BE PRINTED AND 

ALSO EDIT IT INTO «4 FORM MORE CIGESTIBLE FOR 

ASSEMBLY PROCESSING. 

THE CAROS ARE REPRESENTED AS 20 WORDS ON 

TAPE, A ZONE WORD IMMEDIATELY PRECEDING ITS 

CORRESPONDING NUMERIC. 

Ovi LINE NUMBER 

2¢3 A AR AH AS 

eS ™@ MR MH AS 

Ge? C CR CH AS) 1111125330 

Ae9 OP IR AS 1112000000 

10-19 REMARKS AS O1111 dbees 

Ele CHECK LINE NOe 

BADtIF THE LINE NUMBER IS NOT EXACTLY 1 HIGHER 
THAN THE PRECEDING, STOP THE MACHINE aNO 
THEN RETURN TOME). 


1141125330 
14211235330 


Me MM 


OKs 

Eze TRANSFER 
MOVE THE LEFT HaLF OF THE CARO TO THE PRINTER 
AREA EDITING IT SLIGHTLY FOR READABILITY, 


ES~e SEPARATE OFF As He 
EXIT THE A@mAR<AH eM-MR@MH + CeCR=<CH, CHANGING 
THE SYMaOLIC PORTION TO A SINGLE WORD WITH 
THE ZONES AT THE LEFT$ Z222Z2ZNNNNNY 
ACCUMULATE THE R DIGITS+ AND PUT THE 
H-FIELS INTO THE FORM OOZZZ00NAN, 





Fland 
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0649 
0650 
0651 
0652 
0653 
06548 
0655 
0656 
0657 
0658 


" 0659 


0660 
0661 
0662 
0663 
Oee4 
0665 
0666 
0667 
0668 
0069 
0670 
0671 
0672 
0673 
0674 
0675 
0676 
0677 
0678 
0679 
0680 
0661 
0662 
0683 
0684 
0685 
0666 
0087 
0688 
0689 
0690 
0692 
0692 
0693 
0694 
0695 
0696 
0697 
0698 


8948 
B9u6 
89487 
aoue 
8949 
8950 
B92 
8953 
8954 
8955 
8956 
8957 
8959 
8960 
B961 
8962 
8963 
3964 


8939 
42h 
$248 
4603 
4607 
48il 
4016 
4620 
4625 
4229 
44 3q 
4238 
82483 
4047 
4202 
4206 
8611 
44)5 
4070 
4928 
4429 
$833 
4037 
4245 
SOUS 
4053 
8057 
4610 
4018 
4222 
4026 


686 
B88 
386 
686 
686 
888 
886 
688 
888 
B86 
688 
386 
855 
a8B 
388 
886 
888 
888 


aBB 
aeB 
a8B 
aa 
aap 
a8B 
a8B 
ase 
ase 
aap 
eas 
aes 
eae 
208 
ass 
@ae 
ase 
eas 
aaB 
ase 
388 
B80 
Bae 
aas 
ass 
eas 
688 
a8e 
B88 
BBB 
asa 


SOcaocecacoccs eco ocoeoeocoaoaecGoooococeo GOr Or Kk COO OGke rk OGY OO C . 


BOFG 
8947 
07006 
8707 
BO02 
6951 
8700 
8699 
8706 
5002 
0400 
8958 
8707 
8707 
0002 
0002 
8964 
9994 


Boo" 
8669 
8005 
8605 
8670 
8006 
8671 
8007 
8672 
8008 
8673 
8009 
8674 
8010 
5675 
8011 
8676 
8012 
8677 
801 

8678 
8701 
0500 
6703 
B2FG6 
B7048 
4610 
6300 
8702 
B3FG 


4028 


3946 
8947 
89u8 
3949 
39506 
3952 
8955 
A954 
8935 
8956 
$957 
8959 
8960 
3961 
8962 
8965 
2936 
00060 


$244 
4248 
4603 
8607 
8411 
4016 
4620 
4625 
4229 
4934 
4238 
4243 
4047 
4202 
4206 
4611 
4415 
4070 
4824 
4829 
4835 
4037 
8245 
4089 
4983 
4037 
4610 
801g 
4222 
4026 
4630 


STX 
cLXx 
SHR 
$TAd 
LOAL 
ERSS 
$TA2 
BUF 2 
STAZ 
LDA! 
SHL 
ERSS 
BUF 2 
STA2 
IIR 
TIR2 
aDD 
CON 
HHH 
LDA) 
STA 
LDAL 
SUF A 
STA 
LDAL 
STA 
LDA! 
STA 
LDAI 
STA 
LDAL 
STA 
LOA 
STA 
LDAL 
STA 
LOA) 
STA 
LDA} 
STA 
LOA 
SHL 
BUF 
STA 
LDA 
CL 
SHR 
BUF 
STA 
ERSA 


R 


0700 
AH 
8002 
HHMHH 
30001 
30000 
A 
8002 
0400 
OOHHH 
AH 
AH 
0004 
00028 


99999 — 


pO04 
ROQOOO 
8005 
80000 
ROOOL 
8006 
Rodda 
8007 
ROOO0S 
8008 
ROOO4 
B009 
ROOOS 
6010 
ROd06 
B0Li 
ROO07 
8012 
RQOOS 
80135 
ROQOS 
30002 
0500 
30004 
MCN 


30005. 


0500 
30003 
MCZ 
11113 


90000 


00000 


-~ST 
40000 


90000 


Liliis 


E¥. MOVE COMMENTS 


MOVE THE REMARKS FIELD INTO REGION R,. 


E5~e CONSTRUCT CONSTANTS 


PUT TOGETHER THe M ANO C FIELOS INTO 
POSITIVE CONSTANTS MCeMCZeAND MCN AS THE 
CON NUM ZON CONTROL OPS ARE SUPPOSED TO D0> 


IN CONSIDERATION OF THE RECEIPT OF THIS DOCUMENT. THE RECIPIENT AGREES NOT TO 


REPRODUCE. COPY, USE OR TRANSMIT THIS DOCUMENT AND/OR THE INFORMATION THEREIN CONTAINED. 
WRITTEN PERMISSION OF SPERRY RAND CORPORATION, AND FURTHER AGREES TO SURRENDER 


IN WHOLE OR IN PART. OR TO SUFFER SUCH ACTION BY OTHERS, FOR ANY PURPOSE, EXCEPT WITH THE 
SAME TO SPERRY RAND CORPORATION, UPON DEMAND 


manne ene = eS GLARE NS eens -- eee pn | pam OS rn ee 
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0099 
0700 
0701 
0702 
0705 
0704 
0708 
0706 
0707 
0708 
0709 
0710 
0711 
0712 
0713 
0714 
0715 
0716 
0717 
0716 
0719 
0720 
O721 
0742 
O725 
0724 
0728 
0726 
0727 
0728 
0749 
0750 
0731 
0752 
O733 
0738 
0735 
0736 
0737 
0758 
0739 
0740 
O741 
0742 
07453 
O744 
0745 
O746 
0747 
0748 


4630 
4235 
4440 
pry 
444g 
4253 
4406 
4216 
4270 
4075 
4435 
4443 
4247 
401 
4055 
4209 
4213 
4017 
4922 
4275 
4428 
4633 
8201 
4218 
4221 
4223 
4454 
4455 
B4O2 
4019 
4622 
4624 
4654 
4683 
4257 
4475 
4629 
4083 
8919 
4423 
4027 
4932 
4635 
4638 
4242 
RQ3%E 
4au2 
4445 
4060 
&4O? 


888 
as8B 
888 
888 
896 
888 
888 
S88 
8868 
388 
688 
888 
886 
8868 
888 
888 
B88 
886 
38B 
BSB 
888 
888 
B88 
888 
3868 
888 
838 
868 
588 
888 
888 
8868 
885 
688 
8588 


BSB 
386 
388 
838 
886 
666 
686 
886 
895 
858 
886 
836 
688 
388 


ecaaocecocoaoacoocoeocooonocoecaoacococcoocacoocooccaoocococo.c ., 


QOOA 
Q0OA 
B2FG 
BUFG 
8005 
4406 
0700 
Q00A 
8002 
0700 
0500 
0008 
8249 
BS5F6 
8é6F6G 
Q018 
B7FG 
8000 
4275 
4228 
8001 
9o0oc 
0300 
0201 
8225 
8001 
8868 
8200 
0300 
09000 
4624 
6202 
8988 
8401 
4060 
BBFG 
0000 
87F6G 
BOFH 
S1FH 
4432 
4655 
4438 
S9FG 
24222 
Bars 
4445 
4060 
BaF 
BiFH 


4238 
4440 
auga 
4448 
4253 
4406 
4216 
4270 
4o75 
4438 
8ay3 
4247 
4004 
4085 
4209 
4213 
4017 
4422 
4275 
4426 
4633 
8919 
4218 
4225 
4u78 
4483 
4453 
4287 
4019 
4622 
4a75 
4653 
4653 
4257 
4060 
4629 
4083 
4228 
4423 
4027 
4027 
4635 
4638 
4242 
000A 
Qua 
4ugs 
Q00A 
4402 
4606 


A00 
AOD 
SUF 
STA 
LDA 
cLX 
SHR 
LOL 
LOAI 
SHR 
SHL. 
BUF 
SUFA 
STA 
STX 
IIR’ 
STA 
LDAL 
CLL 
TEGO 
LOX) 
LDL 
TRD 
LIR’ 
LDA 
TBU 
HLT 
STA 
TRO 
LIRi 
LOA 
TeV 
HLT 
STA 
CLL 
STA 
TIRI 
STA 
STL 
STX 
Tat 
CLA 
TEC 
LDA 
MLT 
LDA 
CLL 
TES 
STL 
LDA 


RA 
RA 
MCN 


8005 
0700 


9002 
0700 
0500 
RL 
a8000 
oP 
IR 
0014 
TaPEl 
8000 


6F 
800i 
RX 
ITAPL 
0201 
TCONA 
50000 
8aG6 
50199 
ITAPi 
0000 
TCON2 
60000 
6886 
60199 
3F 
TCONT 
9000 
TAPE! 
Texl 
TEX 


aF 

LTAPE 
2222 

TCONT 


SF 
TeONT 
TEX 


88900 


aF 


TSUB* 


iF 
=§ 
~5 
3F 


iF 
m6 
=6 
3F 


6F 
iF 


RA 


RA 


Eée EDIT OP CODE. 


PUT THE OPERATION COOE FIELD INTO THE FORM 
SBZZZSBNNNe THIS FORM IS USED BECAUSE IT 
CANNOT CONFLICT WITH ANY SYMBOL IN THE 
SY¥mMao. TABLE. 

PUT THE IR FIELO INTO THE FORM ZOQCOOONOO,. 


E7. INPUT BUFFER EMPTY 
NOs IF THE CURRENT IAPUT GUFFER IS NOT YET 


EMPTY:+ GO TOMES. 


SWAP SUFFERS 

AN INPUT BUFFER HAS ALREADY SEEN LOADED 

WE SWAP INPUT BUFFERS ANO INITIATE READING IN 
TO THE EMPTY SUFFER. 


TAPE SUBROUTINE. RL IS EXITe RA IS TAPE INSTe 
WAIT UNTIL PREV TAPE INSTRUCTION CLEARS. 


HALT IF INDICATOR LIGHT ON 
IF PRECEDING WAS A READ? UNLOAD BUFFER 
PUT NEXT TAPE INSTRUCTION INTO UTAPE 


IN CONSIDERATION OF THE RECEIPT OF THIS DOCUMENT, THE RECIPIENT AGREES NOT TO 
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REPRODUCE. COPY, USE OR TRANSMIT THIS DOCUMENT AND/OR THE INFORMATION THEREIN CONTAINED. 
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0749 
0750 
0752 
0752 
0753 
0754 
075% 
0736 
0757 
0758 
0759 
0760 
O761 
0762 
0763 
0764 
0765 
0766 
0767 
0768 
0769 
0770 
0771 
0772 
0773 
0774 
0778 
0776 
0777 
0778 
0779 
0780 
0781 
0782 
0783 
0784 
0785 
0766 
0787 
0788 
0789 
0790 
O791 
0792 
0793 
O7 94 
079 
0796 
0797 
0798 





4606 
4260 
4612 
421 
4228 
4632 
4636 
4056 
4409 
4413 
4615 
4219 
4675 
4061 
4065 
4418 
4072 


4226 
4079 
4283 
4237 
4261 
4094 
4647 
4601 
4204 
4644 
4600 
4602 
4010 
4011 
4012 
4013 
4014 
4015 
4217 
4419 
4648 
4804 
4668 
4461 
4265 
4618 
4261 
4465 
4417 


4619 


427a 
4227 


3868 
888 
886 
888 
888 
BBB 
8868 
S868 
688 
888 
8868 
8868 
686 
886 
888 
888 
886 
886 
8688 
888 
68B 
688 
688 
8858 
868 
888 
888 
888 
888 
888 
388 
88B 
888 
388 
6BB 
886 
886 
888 
888 
B36 
888 
856 
882 
886 
886 
8936 
388 
886 
eas 


OSGrKOOGCCCOCSCOOCOCOOCOkK ee GCooaGcocnonoor Cocoeoceoecooroag caoacea |. 


4808 
4612 
0000 
B9F6 
BSFG 
G634 
4239 
0006 
4061 
4615 
4219 
4625 
2000 
4613 
4818 
SSFG 
4O748 


09000 
S2Fé 
8706 
4639 
4604 
§Q47 
BaFC 
4644 
4644 
4648 
46602 
4010 
0002 
0002 
GO14 
B1FG 
GIFS 
BiFG 
4419 
4648 
SSFC 
Q6FC 
4261 
S7F¢C 
4618 
BSFH 
B7FC 
4417 
0000 
0008 
4227 
B4PH 


4260 
$214 
$027 
aOFH 
4632 
4636 
4239 
4409 
4413 
a7i2 
S736 
4475 
4961 
4965 
QO0A 
4072 
4226 


4079 
4283 
4237 
$24) 
4094 
a6 7 
4601 
4204 
8736 
4600 
84810 
4010 
4012 
4012 
3736 
4217 
$217 
4217 
8725 
4861 
4404 
4608 
446) 
4265 
4968 
4272 
5465 
4619 
9000 
4274 
4616 
4272 


ee 


OnSwW 


PROCA 


ERSA 
BUF 
JMP 
STA 
LOL 
LOA# 
TEG 
LIRS 
L.DX 
LOA 
LOL 
LOAR 
STAI 
LOLA 
TGR 
STA 
LOL 
HHH 
LIRS 
STL 
LOA 


A 
LOL & 


TE 
CLL 
LDA 
TEO 
LOL 
LDXx 
LOL 
JMP2 
LIR2 
LIR2 
LO 
LDA 
LDA 
LDA 
LOL. 
LOL 
STA 
LOL 
TEO 
LOL 
TES 
LOA 
LOL 
LOA 


CON. 


ADD 
TEG 
LDA 


HOQO00 
SF 

16 
TEX! 


88658 
SWICH 


SRCH* 
ERRI« 
00000 
iF 
ccccc 
RA 


PROCA 
8638s8a 


ERRIi« 
FINO® 


LOQ02 
LOo02 
ERRI« 
iF 
1F 
iF 
FARB* 
DEFN* 


aF 
iF 


SF 
00099 


4B 
iF 


E9e OP SRCH*e 

ON? IF of IS "ON? GO TONGS, 

OFFiTe MaSTER SwITcH 18 OFF GO TOHXC7, 
ELSE SEARCH FOR OP.~CODE IN THE SYMBOL TABLE. 

CONT IF If IS A CONTROL OP+ GO TOMCI. 

SYM3IF JT IS A MACHINE SYMBOLIC OP, GO TO THE 
MAIN PROCESSING ROUTINEAP, 

BADsSIF IT IS NOT IN THE TABLEs GIVE AN ERROR 
INDICATION AND CHANGE OP TO 67, GO TO #P1, 


Le PROCESS A ADORESS. 
THIS ROUTINE IS USED FOR INSTRUCTIONS AND 
ALSO FOR CONTROL OPS CON* NUM: AND ZONe 

Lde CHECK BLANK A 
TF A 1S NOT BLANK BUT THE PRECEDING INSTRUC@ 
TION HAD A BLANK ADDRESS+ GIVE AN ERROR 
INDICATIONe 


L2e FINO® As» 
OEFSFIND A (ROUTINE Q), IF IT 15 ALREADY DEFINEDs 
sis &O TOALw. 

8 


L3de FARG# eDEFN®. 
A IS aN UNDEFINED aDORESS, IF IT IS REGIONAL s 
LOCAL FORWARDe+ OR BLANK THIS IS AN ERROR 
CONDITION AND A NEw LOCATION IS ASSEMALED. 
OTHERWISE US® THE LINE NUMBER AS RANDOM ORUM 
LEVEL AND GO THRU FARB® (ROUTINE F) AND 
MEPN® (ROUTINE DO). 

L4.e AOJUST A LEVEL. 
IF THE NEW A ADORESS MATCHES THE LAST M OR C 
ADORESS+ USE THEIR LEVEL.» EXCEPT ON M AcDORESS 
MATCH WHERE THE C ADDRESS HAD UNDIGITS, IN 
THE LATTER CaSE& THe PREVIOUS C LEVEL IS USEU. 
OTHERWISE USE THE a ADORESS AS THE DRUM LEVEL 


2 ry te Al: Bere Te 





0799 
0800 
0801 
0802 
0805 
0804 
0805 
0806 
0807 
0808 
0809 
0810 
0611 
06 i2 
08i5 
0614 
0815 
0816 
0617 
Os ia 
0819 
0820 
062} 
08622 
0823 
0824 
0825 
0626 
0827 
0828 
0829 
0630 
0851 
0832 
0835 
0854 
0855 
0856 
0857 
0836 
0859 
0840 
0841 
0842 
0845 
084a 
0845 
0846 
0647 
0846 
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Weerceecrenints State en Mm tet diene NNR as lee te el 
ee a ne ss 
tt tetany ae ene | ce 


4272 
4426 
4279 


4068 
4470 
4472 
4075 
4628 
40B2 
4288 
4089 
4642 
4046 
4051 
4085 
4289 
4294 
4298 
4103 
4457 
4860 
4946 
4268 
4621 
4626 
4479 
4282 
uOBa 
4000 
8001 
4002 
4003 
40oa 
4005 
4006 
4007 
4008 
4009 
4052 
4256 
4660 
4614 
942} 
4125 
4427 
44g3 
4485 
O8ut 


ass 
886 
88B 


388 
888 
888 
88.8 
856 
888 
6868 
3868 
868 
838 
BBB 
ass 
BBB 
S86 
688 
886 
888 
B88 
BSB 
886 
B86 
888 
888 
BSB 
88B 
8586 
858 
886 
6868 
88s 
888 
886 
888 
886 
886 
58B 
886 
888 
388 
836 
886 
886 
BSB 
388 
858 


ooc . 


60 
31 
50 


25 
0 
-70 


30 
-B2 
“30 


as 
70 
60 
2s 
32 
35 
70 
60 


25 
30 
&2 
37 
31 


790 
25 
co) ¢) 
40 
OO 
40 
00 
00 
00 


00 
00 
60 
32 
20 
60 


390 
60 
30 
60 
25 


S3FH 
8279 
e4rc 


4470 
0000 
BSFC 
BEFG 
8080 
4085 
4437 
4085 
B3FH 
4098 
B3FH 
OSFG 
0200 
4246 
B3FH 
BOFH 
0002 
B6FG 
4916 
4421 
0200 
4479 
4262 
4084 
4000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
BOFC 
0100 
QSFG 
BS5FG 
BOFH 
4u27 
B6FC 
4485 
B4FH 
Bere 


4426 
4279 
82FH 


§472 
9000 
4272 
4628 
4082 
4285 
4OB9 
4642 
4086 
4051 
4085 
4289 
4294 
4298 
4105 
4457 
4460 
4414 
4268 
4621 
4626 
4379 
9282 
Q00A 
4052 
0000 
Q000 
0001 
0001 


0002 | 


9003 
0008 
0006 
0007 
9008 
4256 
4660 
4614 
4466 
4125 
a723 
4483 
aa71 
44) 
4648 


PROCM 


90900 
a0001 
00062 
90005 
Q0004 
Go0005 
90006 
90007 
00008 
90009 


STA 
CLL 
STL 


LOA 
CON) 


LDA 
LOLA 


CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
STA 
SHR 
SUF 
STA 
LOA 
LDL. 
STA 
LOL 
STA 
LDA 


ALEV 
BLANK 


00000 
ALOC 


IR 
00000 


10000 
1F 
ALEV 
00000 
ALEV 
OP 
0200 
00000 
ALEV 
OPTIM 
0002 


Ir 

10000 

SF 
0200 


oF 
@0000 
00000 
40000 
00000 
40000 
00000 
00000 
00000 
00000 
00000 
00000 
SIGN 
0100 
OP 
oP 
OpPTIM 


MLOC 


M1.EV 
MLOC 


AEX 


SF 
90000 
18 


00300 
OOHOO 


00001 
iF 


QOOHH 
OOHOO 


RA 


uF 

00000 
00000 
009001 
00001 
00002 
00003 
00005 
000906 
009007 
000038 


PROMI 


 FARBS 


AJST# 


L5e 


x 
x 


Pe 
Pie 


P2e 


P36 


ZERO TO BLANKe 

THE LOCATION "SBLANK* IS SET TO ZERO SINCE AT 
THIS POINT BLANK ADDRESSES ARE UNDEFINED. 
MEXIT. 


PROCESSING OF INSTRUCTIONS 

PROCESS A 

EXECUTE THE L ROUTINEs 

CALCULATE M OPTIM 

If THE IR FIELO I8 NON BLANK ANO NOT A 
LiTeRale ADD 1 TO A LEVEL FOR INDEX REGISTER 
MODIFICATION TIMEs THEN ADD THE APPROPRIATE 
AMOUNT TO GET THE OPTIMUM Mm ADORESS LEVEL, 
AS DETERMINED BY THE OPERATION CODE. 

PUT THIS IN *OPTIMt. 


LITERAL 


YEStIF THE IR FI€LO CONTAINS A NUMBER SIGN GO TO 


NO 8 


HPS. 


Pi. FIGURE INDEXING 


PS. 


ADJUST BIT 4 OF THE OPERATION CODE AND 
THE SIGN OF THE RESULT TO GIVE THE INDEX 
REGISTER MODIFICATION DESIRED. GO TOMPs,. 


CREATE CONSTANT 

Go THRU FARB« ANO AJST* (ROUTINES F ANO A) 
TO DETERMINE AN ADDRESS ANDO ORUM LEVEL FOR 
THE LITERAL CONSTANT. ASSEMBLE THE POSITIVE 
CONSTANT INTO THIS LOCATION? (ROUTINE 0) 
TRANSFERRING THE MR DIGIT INTO AN AR DIGIT 


Ftarul 
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0849 
0850 
0651 
0852 
0853 
0854 
0855 
0656 
0857 
0658 
0859 
0860 
0661 
0862 
0663 
0864 
0865 
0866 
0667 
0866 
0869 
0870 
0871 
0872 
0873 
0874 
0875 
0676 
0877 
0878 
0879 
0880 
0681 
0882 
0683 
0684 
0685 
0686 
0887 
0888 
0889 
0890 
0891 
0892 
0893 
0894 
08695 
0896 
0897 
0898 


460u5 
4456 
4110 
4064 
4069 
4073 
4325 
443} 
4868 
4672 
“a7y 
4129 
4022 
4076 
42860 
8683 
4020 
4023 
4122 
4025 
4024 
4021 
4329 
4631 
4670 
8276 
4278 
4685 
4489 
S643 
4095 
4499 
4303 
4657 
4310 
4262 
4510 
4063 
4668 
4273 


4498 
4$03 
4656 
4710 
4962 
4106 
4058 
4477 
4476 


6586 
386 
BSB 
B86 
588 
B86 
886 
3868 
8868 
888 
636 
886 
BSB 
388 


Goocococeae Le re ee ee eee 


0800 
£0FG 
4962 
0200 
B4FG 
8325 
4679 
8710 
4670 
4Q74 
4129 
4020 
BSFG 
4078 
S021 
BSFC 
4122 
4122 
4670 
89FH 
BOFH 
B9FH 
8631 
8670 
S6FC 
4278 
S4&FH 
@SFG 
4641 
4095 
7000 
BOFC 
4255 
4316 
4262 
0000 
8063 
0200 
SSF 
aSFG 


4251 
4636 
85FG 
S462 
0000 
4058 
1000 
B3FH 
B4FH 


4456 
8110 
4964 
4069 
40735 
8900 
4&3} 
44685 
4472 
$810 
4129 
4020 
4076 
42a0 
4683 
4670 
8736 
9736 
4670 
4329 
4329 
4329 
8723 
BS61 
4276 
3871 
4685 
4489 
4645 
4498 
0000 
4303 
4657 
$310 
4310 
4900 
4065 
4668 
4275 
4477 


4503 
4106 
47106 
4264 
HHMH 
4876 
9000 
408) 
4081 


<A: LAY RTE CT i A TN SE: Senne: - Lament namenenenmmanninite innominate 


PROMI 
mo00a 


MOQOOO 
MOOO0S 


mO000S 
MOCO4 
MQ001 


PROCC 


&¢cl 


~Cl 


&C2 
=C2 


SHR 
LDA 
easa 
SHR 
LDa 
LOL 
LOA 
STA 
LOX 
LOL 
CLL 
JMP2 
LOA 
ERSA 
TEQ 
LOA 
LBL 
LOL 
CLA 
LOA 
LOA 
LOA 
LOL 
LOL. 
STA 
LOL 
STA 


LOA 


ERSA 
ADO 
CON 
LDA 
LOLA 
TEQ 
LDA 
CON 
CLX 
SHR 
ADD 
STA 


LOL a 
TEG 
LDA 
ERS 
CON 
aDD 
CON 
LOL 
LOL. 


080y 
R 
00000 

0200 
MC 


00000 
c 
aF 


M0000 
OP 
00020 
mo001 
ALOC 
iF 

iF 


2F 

OPTIM 
OPTIM 
OPTIM 


aF 
mMLOC 


MLEV 
op 
OOHOU 
99700 
ML.OC 
00000 
00000 
0200 
oF 
ap 
99800 
op 
90000 
00100 


ALEV 
MLEV 


QO0HO 


OTPTs* 
88383 
PROCC 


FIND 


00000 


aF 
ERRI« 
ERRi« 


iF 
AF 
iF 
FARB* 
DEFN* 


AJST* 
PROCS 


06900 
“C1 
00009 


OOF OO 
iF 
iF 
01000 


4C2 


00000 
3F 


aF 
OHHH 
“C2 
00000 
3F 

3F 





FOR THE CONSTANT. 
MARK THE C FIELO BLANK AND GO TOMPS, 


Pe FIND® Me 
NEF SF ING M(ROUTINE OG), IF IT IS ALREADY DEF INEOs 


GO TOsP8,. 
Ds 
P7,. FARS¥+ DEFN*, 


M 1S aN UNDEFINED ADORESS, IF IT 15 
REGIONAL OR LOCAL PLAIN THIS IS AN ERROR 
CONDITION AND ZERO TS ASSEMBLEO. IF IT 15 
BLANK AND IF THE OP=CODE IS ONE THAT IGNORES 
Me » [S$ ASSEMS.EO. | 

OTHERWISE FARB® AND DEFN® (ROUTINES Fe) ARE 
USED TO DEFINE M ON THE BASIS OF OPTIM AND 
THE MH=~FIZELD. 


AQOJUST M LEVEL 
THE ORUM LEVEL AT THIS POINT IS NOW 
DETERMINED BY SUBROUTINE A, 


CALCULATE C OPTIM 

WE SEGIN TO WORK ON THE C AaDORESS NOW, 
THE OP cODE FOUNO IN THE SyMSOL, TABLE IS IN A 
SPECral. FORMAT OPTSOOMMCC, 

MERE OP IS THE TWO DIGIT OPERATION COnE. 
S$ Is 1 FOR IGNORE Ce 2 FOR IGNORE ®, 

MM AND CC ARE INCREMENTS FOR GETERMINING 
LATENCY. T IS THE TYPE OF LATENCY RULE 
REQUIRED: AS FOLLOWS! 

Os c 1S MMCC FIXED LEVEL. 

1: ¢ 18 MMCC FIXED LEVEL. 

2!?cu3ms aece 

3 SHIFT COMMANDS C IS A4#N4CC, 


WE NOW CALCULATE OPTIM FOR C+ ACCORDING TO 
THE RULE GIVEN BY Te 


enna aaa | eenemmadin.menamnatinieind Senn - pce “Sperm” + i PRA “i Rc fet “ann ReS imentnemectenete “eben eat ee ee aa 
: % ahs 


0899 4081 388 
0900 4135 9688 
0901 4689 #888 
0902 4264 888 
o903 4118 B8B 
0904 4071 888 
09058 4325 886 
- 0906 4627 9888 
0907 4033 3888 
60908 4030 8988 
0909 8335 386 
0910 4032 886 
O9i1 4086 9888 
0912 4640 886 
0913 4093 886 
09148 4646 8938 
0935 4846 886 
o9i6 8449 §8B 
0917 4604 885 
O91a 4258 8868 
0919 4661 8856 
0920 4665 898 
092} 42609 888 
0922 8271 388 
09243 4725 888 


25 85FG 4135 3 LOA oP 

35 4637 4689 ERSA QO000 OOOHH 

70 «#39000B 4264 ADD RL aF 

60 S9OFH 4118 2 STA opPpTIM 

08 0008 407} LIR3 99004 PIOeFIND*® Co 

05 44873 4925 LDX 2F DEF: FIND Cc ROUTINE 4), IF IT 15 ALREADY DEFINED, 
30 4627 38106 LOL FIND# GO TOMPi2. 

00 4030 4030 JMP2 €0000 UND 3 

30 4335 8736 €9003 LOL iF ERRi* PLIeF ARGS ¢eDEFN¥. 

30 4335 8736 €9000 LOL iF ERR 1+ C 15 AN UNDEFINED ADDRESS. IF IT IS 

26 4473 4373 i CLA 2F REGIONAL OR LOCAL PLAINe THIS IS AN ERROR 
25 8S5FG 4086 co002 LOA OP CONOITION AND ZERO IS ASSEMBLED. 

335 4688 4640 ERSH 90010 00000 If If IS BLANK AND THE OP-CODE IGNORES Cr 
31 4093 4993 eLb TT 18 MADE EQUAL TO Me OTHERWISE FARB* AND 
62 44u6 4646 TEQ iF DEFN® (ROUTINES Fep) ARE ACTIVATED TO DEFINE 
25 B86FC 4473 LDA moc aF C ON THE BASIS OF OPTIM. 

07 0010 4449 i IIR o00190 BLANK ADORESS HERE MAY BE PUT IN BOODA 

70 S88AH 4404 ADD FUNNY OR SOOF REGION OF CORE. 

30 4306 4256 LOLA 00199 Qg0000 

87 4O31 4461 TGR coool 

60 8BAH 4665 STA FUNNY 

0S OOOA 4269 LOX RA 

70 4271 47248 ADD FANNY 

99 $000 9066 CON 99900 00000 

20 uOo77 49829 &FNNY BUF iF 
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oecocoeacecocoocncaacoocaocoocooooooocacoccoccooooacocrcearcacc . 
o 
o 


0948 $295 BBB 32 0200 4050 SHR 8 9200 


0924 4077 @8B 800F 0000 CON 0800 FOQ00 
0925 4724 B88 0 07 BOOK 4277 ~FNNY IIR ROOA 
- 0926 4277 @a88 0 20 oQoorc 4529 BUF RX LF 
0927 4329 686 0 32 0400 4296 1 SHR 9400 3F 
ooze 4035 B8B 0 25 S9FH 4139 co0os LOA oOpTIM iF 
09290 4034 «988 0 25 «BOFH 4139 cooos LDA OPTIM iF 
ee 0930 = 4031 «888 0 25 «BOFH 4139 coool LDA option iF 
rary 0931 4139 885 0 30 4286 4723 1 LOL 3F FARB* 
SEG 0932 4286 888 0 30 4473 3861 3 LOL ar OEFN™ 
uoea 0953 4873 886 0 60 B7FC 4729 2 STA cLoc PIZeAOJUST C LEVEL 
Sz ¥o 0934 4729 888 0 30 4281 aa7) LOL AJST« THE DRUM LEVEL AT THIS POINT IS NOW 
eee 0935 4281 888 0 60 BSFH 4087 STA CLEV BUILO DETERMINED BY SUBROUTINE A, 
ate: 0936 4087 888 0 25 B7FC 409! BUILO LDA cLoc Pl3e SYNTHESIZE 
eee 0937 4091 888 0 32 a800 4698 SHR 9400 THE OPe M AND C ARE NOW PUT TOGETHER 
weet 0938 4698 B88 0 25 HEFC 4252 LDA MLOC INTO 4 TEN@DIGIT INSTRUCTION. 
ak 0939 4252 888 0 32 0600 4111 SHR 9600 
gue 0940 «4111 888 0 25 BSFG 4115 LOA oP 
ae O94} 4115 688 0 35 4617 4469 ERSA HHOOO 00000 
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0949 
o950 
09351 
60952 
o953 
0954 
0955 
0956 
0957 
0958 
0959 
0960 
0961 
0962 
0963 
o964g 
096s 
0966 
0967 
0968 
0969 
0970 
O97} 
0972 
0973 
O97a 
0975 
0976 
0977 
0976 
0979 
09480 
0961 
0962 
0983 
0964 
6985 
0986 
0987 
0988 
0989 
0990 
0991 
0992 
0993 
0994 
0995 
0996 
0997 
0998 


4050 
4054 
4160 
446u 
4616 
4322 
4O74 
4680 
4333 
4090 
4498 
4254 
4107 
4662 
4066 
4120 
4$22 
4978 
aga) 
4538 
4339 
4722 
4126 
4130 
4735 
4288 
4092 
4096 
4451 
48S6 
4733 
4287 
44991 
8694 
4148 
4651 
4458 
4263 
4172 
4677 
4681 
4185 
4067 
44871 
4175 
0205 
83AG 
4669 
4372 
4652 


8868 
38B 
856 
886 
886 
388 
858 
338 
888 
888 
868 
S86 
888 
338 
856 
888 
586 
B88 
886 
u8B 
888 
886 
888 
888 
8938 
88B 
688 
888 
886 
886 
886 
8868 
B88 
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B86 
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68B 
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BBB 
688 
338 
BSB 
838 
888 
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BOFG 
0300 
0008 
8616 
B4FB 
4674 
BuFB 
4333 
0400 
0200 
0600 
0255 
0200 
83F58 
8SF8 
4322 
@sFa 
4&8 
&333 
BSF 
0370 
0008 
4678 
0200 
0286 
S5F8 
84940 
0200 
4703 
0281 
B5FS 
4339 
4491 
aura 
9651 
0400 
0200 
Q600 
0200 
0008 
8165 
0368 
o00c 
4125 
0250 
0000 
4669 
8669 
0250 
0255 


ao54 
4160 
4464 
3900 
4322 
g920 
4680 
4333 
4090 
4495 
4254 
4107 
4662 
4066 
4120 
8920 
478 
6481 
4335 
4339 
4722 
4126 
4130 
4735 
4288 
4092 
4096 
448} 
4455 
4733 
4287 
4494 
4694 
4148 
4651 
4456 
4263 
4172 
4677 
4681 
4183 
4067 
47} 
$175 
4452 
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4669 
4372 
4652 
4307 
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LOA 
SHR 
LDA 
LOL 
LDA 
Lox 
STXx 
CLX 
SHR 
SHL. 
SHR 
$TX 
SHL 
STA 
LDA 
LOX 
§TX 
ATL 
ERSA 
BUF 
STA 
LDA 
ERSA 
SHL. 
STA 
LDA 
ERSA 
SHL 
BUF A 
STA 
LDA 
ERSA 
ATL 
LOA 
CLX 
SHR 
SHL 
SHR 
SHL 
SUF 
aUPFA 
STA 
LDA 
BUF A 
STA 
CON 
CL 
ZAP 
STA 
$TX 


R 
030u 
RL 


TEMP) 
TEMP) 


0400 
0200 
0600 
0255 
6200 
TEMP 

TEMP a 


TEMP 


HHHHH 
TEMP 
O370 
Rt 
00000 
0200 
0286 
TEMPa 
00000 
0200 
88a80 
0283 
TEMP2 
HHHMH 


TEMP 


0400 
0200 
0600 
0200 
RL 
00080 
0365 
RX 
00008 
0250 
900900 


0250 
0255 
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UNDG* 


HOOOO 


OHHHH 
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00083 


HO000 
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#90000 
ALLX 
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THE aSSEMBLED INSTRUCTION IS EDITED ANO 
SENT TO THE PRINTER AREA, 

FOR CONTROL OPERATIONS, HOWEVER? THIS PART 
IS SET TO BLANKS. 


0999 4307 388 
1000 4383 3888 
1001 4468 858 
1002 4267 88.8 
10035 4452 383.6 
1004 4655 3888 
1005 4609 886 
1006 4112 888 
1007 4266 8866 
1008 4320 #888 
1009 4664 386 
1010 4119 386 
1041 4323 #888 
1912 4127 6888 
1013 4296 9388 
1014 §101 93885 
1015 4105 9886 
1016 4059 886 
1017 4327 8868 
1018 4482 386 
1019 4486 868 
1040 4290 6888 
1021 4330 9888 


60 0281 4383 STA o281 

65 0286 4488 STX 0286 

60 0365 4267 STA 0365 

65 0370 4452 STX 0370 ALLX 

31 4655 4658 ALLX CLL P16eFLOW CHART 

25 S7FH 4609 LDA FTAG IF THE CONTROL OPERATION FLO 

82 4112 4312 TEG FIN FLOW YEStHAS APPEARED EARLIERe GO TO THE FLOW~ 

25 8678 4266 FIN LDA Rooo9 CHARTING ROUTINESX 1 

05 8677 4320 LOX ROO08 NO! 

60 0262 4664 STA 06262 PLT. PRINT 

65 0267 4119 STX 0267 MOVE THE REMARKS TO THE PRINTER AREA FROM 
25 8674 4323 . LDA RO00S REGION Re TAKE ALL ERROR CONDITIONS THAT 
05 8673 4127 LOX ROooS HAVE SEEN DETECTED AND PUT THEM ON THe LIST= 
60 0294 4296 STA 0294 INGe THERE 18 ROOM FOR AT MOST 5 ERRORS. 
65 0299 4101 STX 0299 INTERROGATE THE PAGE@LINE COUNTER TO SEE IF 
25 68670 4105 LDA ROOO!L A SKIP TO NEXT Pace IS NECESSARY, 

05 68669 40589 LDX ROOOoU FINALLY PRINT THE LINEe ANDO GET READY FoR 
60 0325 4327 STA 0325 THE NEXT LIN&e GOING TOFEL,. 

65 0330 4482 STX 06330 

25 8676 4966 LOA RO0007 

0S 8675 4290 LOX ROOOG 

60 O378 4330 STA 0378 

65 oO363 4385 STX 6383 
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1048 . G FROM STEP E9. 
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1oz3 4739 888 06 05 B671 4293 LOX ROoOd 
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1025 4311 886 6 65 O214 4466 STX 0214 

loze 4466 886 0 25 S86FB 4520 LDA ERROR 

1027 4$20 888 0 06 4523 4923 CLX 

102e 4923 888 0 62 4523 4527 ZUP 

1029 4527 888 0 37 O800 4284 SHL 9400 
oer 1030 4284 9888 0 20 S81FG 4éeas BUF LINE 
a 1031 4688 8BB 0 20 4H90 4292 auUFA o0000 80000 
zee 1032 4292 888 0 60 0200 4102 STA 0200 
uoee 1033 4102 888 0 25 GB2Ac 4506 LOA Le 
GZHO 1934 4506 888 0 70 “ese 45141 ADO PR 
or 1035 4658 88B 0 99 9999 9951 CON 99999 99951 
a2 86 1036 4511 8688 0 75 4118 4467 -PR SUBa 99999 99939 
RES 1037 4467 888 0 60 82AC 4671 STA LC 
wee 1036 4671 BBB O11 O20; 4189 PRN 0201 “PRI 
re ee 1039 4512 888 0 60 B2AC 4666 &PR STA LC 
gute 1040 4666 888 0 11 0217 4189 PRN 0217 “PRI 
Baez 104) 4190 888 0 67 3333 000A &PRI HLT 3333 RA 
Bore 1042 41869 888 0 25 BIFG 4893 =PR1 LDA TAPEL 
Pepe 1043 4493 BBB 0 70 4695 004A ADO RA 
£20 “- 1044 4695 8868 0 0B cO0c 4200 LIF’ 0000 START 
eit 1048 C. CONTROL OPS. 
Bee0 1046 Cle BRANCH TO OP 
Beez 1047 &G RA CONTAINS A TRANSFER TO CONTROL OP» 
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oe ke 
zeow 
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2353 
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eee 
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1049 SIF OP IS BLANKs GO TOSP15. 


Ftard 


fe) 
g 1050 | | CONSFOR CON sNUMeZONCALFs GO TORC26 
Be lo51 | SLRSFOR BLA-BLR GO TONGS. 
gx 1052 CORtPOR COR GO TOMC.. 
= id 1053 FQUIFOR ZQU GO TOMCS. 
i 1058 HHHSFOR HHH, SET MH INTO HTAG AND GO TORP)5, 
w= 1055 OFFIFOR OFF GO TOAtE 
- 1056 Poe ee SET FLOWCHARTING TAG ON AND GO TO 
ri 1057 ALSO 
3 1058 PATSFOR OAT SPRINT THE AVAILABILITY TABLE ANO 
1059 GO TOWEL. 
1060 | TYPSFOR TyPs HALT AND INSERT RA IN TYPE OF PROG. 
1061 X GO TOAPIS. 
1062 ERRSIF AN ERROR OCCURS WHILE PROCESSING ONE OF 
1063 THE ABOVEs NO ADDITIONAL ACTION TAKES PLACE 
1064 AND WE GO TOAPIS. 
1068 3 ENDSFOR END) GO TO THE ENDING ROUTINEAZI. 
1006 @SAG 38B 0 25 8709 4720 HHH LOA MH 
1067 4720 6888 0 60 S6FH 83aG STA HTAG PSUDX 
1068 B6AG 888 0 25 4318 4170 FLO LDAS HHHHH HHHHH 
1069 4170 888 0 67 1212 4712 HLT 4212 G OPERATOR SHOULD CLEAR A IF FLOWCHARTING 
1070 $712 888 0 60 G7FH a3aG STA FTAG PSUDX G IS NOT DESIRED. 
1071 C2e PROCESS A 
1072 SiAH 888 025 S2FG 4572 NUM LOA MCN iF USE ROUTINE L. TO GET THE A ADDRESS» 
1073 82aH 886 0 25 B3FG 4572 ZON LOA mez iF THEN USE THE IR FIELO TO INDICATE THE 
107% B4AH 886 0 25 BIOR 4572 ALF LOA LF 
1075 4572 888 0 60 @84FG OAH i STA MC CON SIGN AND GO TO#MP\N TO ASSEMBLE THE INSTRUC@= 
1076 BOAH 888 0 30 4128 4936 CON LOL PSIGN TIONe 
1077 4128 888 0 30 4730 4226 LOL PROC A 
1078 4730 888 0 30 G4FG 4676 LOL MC | BILD} 
1079 4530 888 0 50 SOFS 4464 PSIGN STL exit 
we 1080 4464 688 0 25 B6FG 4134 LDA IR 
rea 1081 4138 888 0 30 4690 4492 LOLA 90000 00.300 
< EG 1082 4492 886 0 62 4145 4385 TEO iF 
638 ioas 434$ 888 0 32 0200 4145 SHR 9200 iF 
z to 1084 8148 888 9 60 S89FC aoFs 1 STA SIGN EXIT 
bog 1085 B0aG 888 2 92 oCO0O 4319 BLA LIRS 9000 iF C3e UPDaTE AVAIL TABLE 
at: 1066 81aG 888 2 02 0003 4319 BLR LIRS 0003 iF CHECK CH-FIELO fO0R INCREMENTs IF BLANKe 
re 1087 4319 888 9 25 S7iL 4723 1 LOA CH USE le ELSE USE CH MOD 100. FIND® M, 
ae: 104868 S723 388 0 30 4375 4727 LOL® Qo000 00385 If UNDEFINEDs ERROR. IF C IS BLANKe SET 
gee 1089 4727 888 50 &2 4180 4380 TEQ 1F C EQUAL TO Me ELSE FINO*® C. IF UNDEFINEDs 
wos 1090 4360 8865 035 4682 4684 ERSA 00000 QOOHH ERROR, FIND THE STARTING PLACE IN THE 
a 1091 S664 888 0 37 0400 4691 SHL =. 0400 aF AVAILABILITY TABLE, AND KEEP RESERVING OR 
gee 1092 4180 888 0 07 COOL 4691 i IIR =69001 aF UNRESERVING ONE LOCATION AT A TIME 
eee 1093 4691 888 0 77 4691 4144 2 ATL UNTIL DONEe GO TORCS. 
£86 10948 4148 88B 0 20 4u94 4348 BUF BVARL 
3e 8 1098 4348 8B8B 0 60 4450 4302 STA BVAR 
B<0 1096 4302 88B 0 25 OOOR 4706 LOA AL 
z82Z 1097) 4706 «888 0 06 «44259 «4259 CLX 
ret 1098 4259 8BB 0 32 O400 4116 SHR O400 
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28 
48% 
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1100 
110) 
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1103 
11086 
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1106 
1107 
1108 
1109 
1140 
didi 
1142 
1115 
liia 
2145 
1116 
1117 
1148 
1129 
1120 
liai 
1122 
lids 
1124 
1128 
1126 
1127 
1128 
1149 
1130 
41131 
1132 
1333 
1134 
1155 
1156 
11357 
Li3e 
4159 
1140 
1143 
1142 
1145 
1144 
1248 
1146 
1147 
1148 
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4116 
4121 
4575 
4179 
4177 
Q131 
4985 
4389 
4692 
4142 
4748 
4132 
4647 
4345 
464g 
4153 
4$07 
8686 
4140 
4693 
4650 
81048 
4659 
4463 
8345 
4370 
S173 
4328 
4334 
4338 
4340 
4195 
4099 
4108 
4162 


8316 
8965 
BSOS 
8406 
B4O4 
8407 
8966 
4314 
B967 
8968 
8969 
8405 
B4ce 
8409 


688 
B86 
8868 
8586 
638 
688 
e388 
888 
38s 
888 
388 
988 
886 
88B 
858 
888 
888 
858 
886 
888 
688 
586 
BBB 
68B 
886 
B88 
888 
388 
886 
888 
88B 
888 
666 
a6 
586 


368 
858 
388 
38B 
686 
B88 
388 
888 
388 
886 
388 
3868 


(886 


888 
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4516 
a4Fs 
4177 
0002 
BOFC 
8710 
4487 
4692 
4545 
0008 
4667 
W130 
BOFC 
BSFB 
sarc 
COCA 
4959 
@3FS 
4693 
0400 
oooc 
OO0A 
S711 
4315 
0000 
4173 
83F8 
0300 
4136 
4340 
0000 
83FB 
0600 
4360 
4314 


4316 
B4oOs 
8409 
a4i3 
6069 
HHHH 
BuO4s 
0000 
B2FC 
8405 
Buia 
B2FC 
B2FC 
Q000 


4124 
4579 
4179 
4132 
4134 
4585 
4389 
4142 
4548 
4748 
4132 
8810 
4548 
4649 
4153 
4507 
4686 
4140 
4693 
4650 
4108 
4659 
4463 
0004 
4370 
4173 
4328 
4336 
4338 
Q00A 
4195 
4099 
4108 
4162 
4316 


8965 
A403 
8966 
8966 
0000 
HAH 
0008 
8967 
3946 
8969 
0008 
B97 1 
a971 
0000 


1 
FPZER 


BOCcO0 
809005 
80001 
80004 


B2 

80002 
80008 
BOQOOG 


SUBA 
STA 
LOX 
LIRS 
STA 
LDA 
LOLS 
TEO 
CLA 
LIRS 
Lox 
LOL 
SUB 
STA 
LOA 
LOL 
MUL A 
STA 
CLA 
SHR 
LOA 
ADD 
ERSA 
BUF 
LIRI 
CLA 
SUB 


FRSA 
sUB 
Lik 
LDA 
SHL 
ERSA 
AUF 
HHH 
ATL 
JMPS 
LOA2 
LDA2 
CON 
CON 
Lox4 
SHR 
STA 
LOLS 
Oa) 
BUF 
Exs 
CON 


00000 
TEMP i 


2F 
0002 
MLOC 


c 
90000 


SF 
00048 
ar 
PERR 
mMLOC 
TEMP2 
MLOC 


00000 
TEMP 


0400 


R 
OOHHH 
6000 


TEMP 
0300 
00000 


0000 
TEMP 

0600 
OOOHO 
iF 


g0000 
a0006 
B0010 
00000 
HHHHH 
30001 
0000 
MASK 
40002 
00001 
MASK 
MASK 
50000 


00001 
iF 

FP2ER 
FPERR 


B5a6e 
iF 


FPERR 
FIND « 
3F 
7F 
QA00S 


HOOQ00 
RA 


30900 
RA 


00000 


OF 


ar 
2F 
00000 
HHHHH 
RL 

7F 
“B2 
SF 


aF 
00000 


1149 
1150 
1351 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1165 
1168 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
L174 
1175 
1176 
1177 
11768 
1179 
1180 
1361 
1182 
1183 
1164 
1185 
1166 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
11948 
1195 
1196 
1197 
1298 
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84109 
B4il 
B412 
B8i3 
S414 
8415 
8416 
8971 
8972 
8973 
8974 
3975 
3977 
4496 
B978 
8979 
3970 
8980 
898} 
8962 
89a3 
8984 
6965 
8966 


B4AG 
8718 
4134 
B2aG 
4570 
4775 
4525 
4785 
4389 
4145 
8395 
4302 
4707 
4161 
4663 
4317 
4321 
$316 
A976 
4373 
8336 
4538 
8688 
8689 
3690 


888 
886 
a38 
886 
386 
858 
588 
886 
888 
886 
88.8 
885 
686 
Bes 
886 
886 
868 
88B 


388 
BSB 
888 
ass 
888 


86B 
B86 
B85 
686 
BSB 
688 
888 
3568 
38B 
856 
888 
85B 
886 
888 
888 
888 
B38 
888 
B88 
a8a 
388 
388 
388 
888 
888 
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0000 
6000 
0000 
KHHH 
HHHM 
HHHH 
HHHH 
6418 
OSFS 
Bars 
8975 
9999 
esr 
0000 
8979 
9800 
8980 
0060 
Barc 
000c 
0100 
B965 
Q001 
8967 


47168 
BO6FC 
B3AG 
AFC 
4772 
4528 
0400 
4667 
A6FC 
4395 
0406 
B3FC 
000A 
4663 
9000 
4169 
41348 
B3FC 
o000 
4154 
4358 
8688 
B6FC 
BéFC 
B3AG 


g000 
9000 
Q0060 
HAH 
HMHH 
HAH 
HHHH 
a972 
8973 
B974 
8976 
9999 
4850 
8978 
8969 
0000 
0004 
896i 
8982 
8983 
5984 
8967 
8986 
8965 


4179 
8976 
8736 
4570 
4775 
4528 
&785 
4389 
4145 
4179 
4302 
4707 
816) 
4316 
Q000 
8321 


3760 


8976 
4373 
4336 
8419 
8638 
4097 
4097 
B3aG 


Ag007 
29008 
30009? 
80016 
Bool! 
80012 
86013 
8 


&B1 
BVAR1 


&p2 


EQU 


2 
PERR 
Cor 


&B3 


x0000 
XO001 
X0002 


CON 
CON 
CON 
CON 
CON 
CON 
CON 
STA 
LGA | 


ADD 
CON 
STA 
TIRL 
ADD 
CON 
SUF 
LIRI 
LDA 
LOL 
SHR 
TEG 
TIR2 
LOL 
HHH 
LOX 
STA 
LOL 
LOA 
ADDA 
CLX 
SHR 
BUF a 
STA 
LOX 
SHL 
ADD 
LOX 
ADD 
CON 
LDAS 
LOX 
STX 
IRS 
LOX 
LOL 
JMP2 
LDA 
LOA 
JMP 


400090 
20000 
10000 
cHHHH 
83HHHH 
FHHHH 
GHHHH 
poool 
TEMP2 
TEMP 


99999 
TEMPa 
0000 


99980 


0000 
MASK 
RX 

0100 


0002 
76 


2F 
MLOC 
PSUOX 
CORE 
0000u 


0400 
00000 
MLOC 
aF 

0400 
CORE 
RA 


99900 
900900 
PERR 
CORE 
0000 
PERR 


x0000 
MLOCc 
MLOC 
PSUDX 


00000 
00006 
000006 
HHHHH 
HHHHH 
HHH 
HHHHH 


Bl 
99999 
BVAR 
«aB2 
00000 
RA 


78 
08 
FP2ER 
wf} 
ERR1* 
10009 


OBO00 
FP2ER 


#83 
00090 
0060; 
ERRe* 
=Bj 


FIND« 
1F 


C4. 


C3. 


RESERVE CORE 

IF ™ I$ UNDEFINED: OR THERE ISAT ENOUGH ROOM 
IN CORE THIS IS AN ERROR, OTHERWISE RESERVE 
THE SPACE IN CORE, AND GO TORCH, 


DEFINE ADDRESS 

FIND A (ROUTINE @), IF OEFINEDs OR IF A 
PAIR ADORESS, THE A FIELD IS IN ERRORe ELSE 
If NONBLANK DEFINE IT (ROUTINE 0), 

GO TORP 15. 


1199 
41200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
12i1 
i2i2 
l2is 
12144 
1215 
1216 
1217 
i218 
1219 
1220 
1221 
1242 
1223 
1224 
1225 
1226 
12247 
1228 
1229 
1250 
12351 
1252 
1253 
1254 
1255 
1256 
1257 
1236 
1259 
1240 
124} 
1242 
1245 
1244 
1245 
1246 
1247 
1248 
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einem Ama Semel MOR cee es eaten thy | eet © Ne tee | etn aN es ements ee Z a es a ee 
2 ~ : 


8691 
8692 
8693 
4097 


42359 
85AH 
0458 
0462 
0464 
0468 
0471 
0475 
B6AH 
0368 
0668 
0470 
0973 
0477 
0460 
0484 
0468 
0567 
03572 
03575 
0578 
0482 
0857 
0483 
0482 
0486 


4332 
43936 
4540 
4736 
43a4 
4299 
4383 
4308 
4740 
4544 
454s 
4702 
4304 
4156 
4573 
4377 
433} 


8868 
a88 
886 
B88 


888 
886 
688 
B88 
B88 
858 
838 
888 
388 
888 
886 
386 
SSB 
8368 
888 
888 
886 
888 
886 
888 
38a 
888 
68.8 
688 
858 
886 


5388 
886 
886 
BSB 
888 
686 
8868 
388 
6308 
888 
888 
836 
888 
BSe 
888 
388 
886 


Copnacoeoooceacocoecao ooanaoocoaococ”cesocooceaoooecoscoaoo acoondod 


BéFC 
BéFC 
4154 
83AG 


4056 
04870 
S9FH 
0468 
O466 
Oa71 
B9FH 
4439 
0008 
0466 
0261 
0875 
B7FM 
0480 
O482 
O4NB6 
0365 
0370 
0578 
0S75 
0250 
0255 
0281 
0286 
BB66 
2021 


4332 
B6AC 
B7AC 
Bé6AC 
8696 
B6AC 
4305 
5199 
4342 
Baac 
B2a8 
4304 
86786 
3409 
0010 
BRAC 
4563 


4097 
8097 
4134 
8861 


0458 
0458 
0462 
4179 
0468 
B3AG 
0478 
G3AG 
0868 
0668 
B3AG 
0a73 
0477 
41a9 
Q&s4 
0488 
0567 
0572 
0575 
0378 
0452 
0457 
0483 
#112 
$868 
1022 


4536 
4540 
$344 
Q34a4 
4299 
4353 
O004 
000¢ 
4$aq 
4548 
4702 
4156 
3669 
4575 
4377 
4331 
4342 


XQ005 
x9004 
x0005 


ONN 
OFF 


TYP 


OFF Sw 


CMPL™ 


COMPS 


COMT™ 


LOA 
LDA 
JMP 
LOL. 
HHH 
L.DX 
LOx 
STX 
OX 
LOL 
TEQ 
LOL 
STL 
HLT 
STL 
STL. 
CLL 
LDA 
TE 
LDA 
LOX 
STA 
STX 
CLX 
ZAP 
STA 
STX 
STA 
STX 
NUM 
ZON 
HHH 
ATL 


ADDS 


MLOC 
MLOC 
PERR 
PSUOA 


ONSW 
OFF SW 
OPTIM 


TYPE 


OPTIM 
SWICH 
RL 
TYPE 
9241 


FYAG 
iF 


0365 
0370 


0250 
0255 
0281 
0286 
eae 0 
ae 0 


MUMI 
MUML. 
MUMI 
00000 
MUMI 


w9999 
CoM! 
RBG 


ROQ09 

cOMTs 
0010 

com! 


iF 
iF 


CEFN*s 
iF 


FPZER 
PSUOX 
PSUDX 


PSUOX 


-PR1 


FIN 
FF ee 
FF «xe 


uF 
ROOGO 


«COM 


Cée 





ON OFF 
If 4 ADORESS MATCHES THE TYPE OF PROGRAM: THE 
MASTER SWITCH IS TURNED ON OR OFF. GO TOMPIS. 


C7. ASSEMBLER OFF 
FLOSIF FLOWCHARTINGs GO TOREIL. 
OFF SOTHERWISE PRINT THE WORD OFF ON THE LISTINGe 


e 


ODA DG x 


RETURNING TOSP17. 


EXAMINE REMARKS FIELD 
CMPL* PUTS INSTRUCTION IN RA INTO MUM CODE 
MUML IS THE LOCATION OF LAST MUM INSTR. 
COMP® PUTS WORD IN RL INTO MUM CODE 

RUT IT ISNT REALLY AN INSTRUCTION 

EXIT 1S IN RX* IN BOTH CASES. 

THIS ROUTINE 1S ENTERED ON EVERY CARD EXCEPT 
PaT AFTER FLO HAS APPEARED. 

THE PURPOSE IS TO SEND INFORMATION TO Pass 3 
FOR FLOWCHARTING. THIS INFORMATION IS 
TRANSMITTED AS A *MADE@UP=MACHINE® OR MUM 
PSEUDOCODE. SPECIFICATIONS OF MUM GIVEN 

IN THE PASS 3 LISTINGe 

MOVE ALL REMARKS TO THE COMMENTS TAPE 

FOR USE BY PASS 3. 


aati 





i249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
126% 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
izTe 
1277 
1278 
1279 
1280 
1261 
1282 
1285 
1284 
1285 
1286 
1287 
i268 
1289 
1290 
1291 
1292 
1293 
i294 
1298 
1296 
1297 
1296 


Rtand 
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43a3 
4343 
4297 
43061 
4553 
4699 
4505 
4109 
4313 
4667 
4521 
4326 
4580 
4312 
4515 
4519 
4128 
4178 
4186 
4789 
4Su3 
44g? 
4501 
4705 
4309 
4562 
4716 
4719 
4326 
4369 
4520 
4577 
4777 
4531 
4734 
4738 
4141 
4341 
4795 
4149 
4352 
4356 
4560 
4713 
4117 
ui7} 
4174 
43768 
4532 
4513 


688 
858 
ass 
688 
688 
386 
688 
B88 
888 
886 
888 
886 
8868 
58_8 
BaB 
88B 
8aB 
838 
888 
888 
388 
388 
888 
a8B 
8868 
886 
3868 
888 
858 
888 
888 
888 
886 
888 
B88 
886 
886 
588 
836 


BSB 
8868 
B88 
388 
888 
886 
888 
8568 
38B 
858 


eceocoococececococeceocococecoocnceocoocooracaooaaccoacoooo:c |. 


9800 
BSac 
8699 
43553 
3400 
0700 
8669 
4361 
8669 
8670 
4773 
4728 
8670 
0007 
8670 
4128 
BaF} 
Q500 
4186 
B669 
4395 
Q00B 
BOAB 
4157 
4362 
4314 
8719 
58FM 
4362 
S721 
4377 
4112 
4379 
4934 
4386 
4141 
4$54 
4743 
4697 
9152 
4504 
4308 
4315 
4715 
4369 
4174 
BOAB 
4780 
0300 
BOAR 


9000 
4297 
4301 
8919 
4699 
a342 
4109 
4313 
4667 
452) 
4326 
4580 
Q008 
4915 
4419 
4124 
4178 
4186 
4789 
4543 
4u97 
4501 
4705 
4309 
4862 
4716 
4369 
4324 
4805 
4524 
4777 
4505 
4531 
4734 
4738 
4344 
4736 
4798 
4149 
4352 
8356 
4560 
4713 
4117 
4174 
a37y 
4378 
4532 
4188 
S317 


&COM 


¥ 4 
BOK 


FLOW 


CON 
STA 
LOX 
LOL 
TBL 
TWR 
LDA 
ERSA 
STA 
LDA 
ERSA 
BUF # 
STA 
LIRS 
LOA 
CLX 
$TX 
SHR 
ATL 
LDA 
ERSA 
BUF 
STA 
LOL# 
TEO 
LOL” 
TEQ 
STA 
LOL 
LOLa 
TEQ 
LoL 
LOLS 
TEQ 
LOLA 
TEO 
LOX 
ERSA 
LOL” 
TES 
ERSA 
LOLA 
TEC 
ERSA 
LOLA 
TEG 
LDA 
ERSA 
SHL 
LDA 


99930 


com! 
2F 


COMTS 
OTAPS 
ROONO 
00000 
ROO0O 
ROOO0! 
00000 
88a8e 
ROOO1L 

0007 
ROGO1 


RTAG 
0800 


ROOOY 
HHH 
RL 


OK 
00000 
$5 
03000 


RTAG 
$$ 
01000 


FIN 
o12ii 


$6 
O31i2 


$6 
HOHMH 
001090 


HHHHH 
00010 
if 

HHHHH 
00001 


OK 
00000 

0300 
OK 


00000 


TSUB* 
2F 
=@CoOM 


HAHHH 


HHHHH 
00000 
RL 


ey GS pl yo A a A RU RY ety ee a ae wy _— 
cA een — 


G BDKs SLANK OuT COLS 32~35 ANO GO TO RL, 


Xle WHAT OK FIELO 
COLUMNS 3239 ARE THE OOCUMENTATION KEY OR DK 
precoe AND THEY CONTROL THE FLOWCHARTING OPER 
ATION. 
SIF THE DK FIELO IS BLANKe GO TOAX2e 

G «aff rf IS Ge BLANK IT OUT AND GO TOAP17~ 
G IS USED TO PUT REMARKS ON THE ASSEMBLY 
LISTINGe 

CODslIe IT 15 COOTe THIS IS THE BEGINNING OF THE 
WORDS CODING DETAILS.» TO#X3. 

TABtIe 17 IS TABLe THIS IS THE BEGINNING OF THE 
WOROS TABLE OF CONTENTS+ COMPILE THE pox 
Seas AS AN 63 OP IN MUM CODE, THIS SPECIAL 

ASE 1S EXAMINED BY PASS 3, THEN GO TORXS, 

Ke STR aT TS THE FORM ke THIS INDICATES A NEW 
SECTION WITH KEY K, GO TOAx 

KNetlie if IS OF THE FORM KN, on” KNN. If IS a NEW 
SUBSECTION NAME es CHECK THAT THEY ARE NUM= 
REREND SEQUENTIALLY AND IF NO ERROR GO TOHX4s 

OTHRANYTHING ELSE IS a CONDITION NAME, TOAXS,. 


1299 
1300 
1301 
1302 
1305 
13048 
1305 
1306 
1307 
1308 
i309 
1330 
1333 
1312 
1315 
13146 
1315 
1316 
1347 
1318 
1319 
1320 
i32} 
i322 
1345 
i324 
13245 
1326 
1327 
1328 
1329 
1330 
1331 
1352 
1335 
1334 
1355 
1336 
1337 
1336 
1339 
1340 
1341 
1342 
1345 
i34a 
1345 
1346 
1347 
13548 
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4317 
4373 
4188 
4193 
4748 
4151 
4362 
4367 
4574 
4S78 
4763 
4586 
4Sa} 
4346 
4349 
47048 
4308 
4561 
4166 
4571 
4726 
4879 
4732 
4786 
4388 
4368 
4182 
4137 
4741 
47706 
4176 
4337 
4390 
4546 
4100 
4154 
4509 
4746 
4342 
4300 
4155 
4760 
4762 
4768 
4376 
4778 
4384 
4390 
4196 
4551 


688 
B88 
888 
886 
886 
B88 
886 
BEB 
88B 
BSB 
888 
B86 
BSB 
858 
888 
886 
858 
836 
B8B 
888 
688 
888 
888 
8836 
838 
868 
6865 


868 
686 
88s 
888 
888 
Bas 
8BB 
888 
S88 
886 
888 
B88 
8865 
888 
888 
858 
8868 
8988 
865 
BSB 
BBG 
888 


OEoecooeoeecoeooeoceocoec ocecooaooeooco coe ooecooaooncaoococoooaooocacno ., 


8769 
0200 
QO0A 
4146 
4701 
4362 
0000 
8670 
4526 
0004 
4785 
8670 
&393 
8346 
4351 
0008 
4508 
8669 
4568 
0008 
&579 
4732 
0002 
4368 
9990 
4534 
4164 
0008 
O00A 
&774 
0600 
4357 
4342 
BOAC 
4352 
Qo0R8 
4842 
BLAC 
0000 
8670 
8672 
4762 
4366 
BSF 
4778 
0100 
8670 
8669 
8671 
4753 


4371 
4168 
4193 
4788 
41514 
4736 
4367 
4874 
4578 
4783 
4586 
4561 
4346 
4349 
4704 
4808 
4561 
4166 
4971 
4726 
4$79 
4162 
4786 
4367 
9000 
4834 
4137 
4744 
4770 
4176 
4337 
4390 
4546 
4100 
4184 
4509 
4746 
4300 
0008 
4155 
4760 
aoac 
4768 
4376 
@LAC 
4384 
4590 
4196 
455} 
@OAC 


$5 
“~NO# 


&NO# 


ERSA 
SHL 
ADD 
LBL 
TGR 
LOL 
LIRR! 
LDAL 
ERSA 
SUB 
ATL 
LOAL 
ERSA 
MTX 
ADDN 
ERS 
ATL 
LDAL 
AODDA 
ERS 
CLL 
TES 
TIRI 
AOD 
CON 
JMP 


$6 
LOL# 


BUF 
MUL. 
ERSA 
SHL 
ATL 


STA 
LOAA 
SUB 
ADO 
STA 
SHR 
LDAL 
LOX21 
LOL 
ERSA 
5TX 
LOL. 
SHR 
STXi 
LOA 
LOX) 
LOL 


QOHOO 
aF 


ERRL* 
“NOt 


88588 


66666 
33353 
33333 
iF 
“NOH 
00000 


3211 


Q000H 


00000 


aF 
RL 


SHRI 
HHHHS 
SHR 2 


SHR 1 


XZe SCAN FOR # 


LOOK THROUGH ALL REMARKS FOR A NUMBER SIGN.e 


GATHER TOGETHER THE SHARACTERS FOLLOWING ITs 
UP UNTIL THE NEXT CHARACTER WITH UNDIGITS. 
THE PRINTING CHARACTERS + ANO / ARE NOT 
DELIMITERSe THE OTHERS ARE.) THIS FORMS THE 
BRANCH WORDe IF NO CONDITION PRECEDED, 
COMPILE AN 09 OP. IF THE BRANCH WORD REFERS 
TO THIS CHART+ PUT M ANO C INTO THE LaST 
COMPILES INSTRUCTIONe PUT A RECORD FOR THIS 
ENTRY ANO N IN THE STOP TABLE AS THE LAST 
BRANCH TO Me OTHERWISEs COMPILE THE BRANCH 
WORD INTO THE MUM CODE. 


Ed 


1349 
1350 
1351 
1552 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1368 
13658 
1366 
1367 
1368 
1369 
1370 
1371 
1572 
1375 
1374 
1378 
1376 
i377 
1378 
1379 
1380 
1341 
1382 
1345 
1364 
1388 
1356 
13587 
1368 
1389 
1390 
1391 
1392 
1395 
1398 
1395 
1396 
~ 1397 
1398 
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4753 
4709 
4761 
4717 
4576 
4779 
4937 
4790 
4740 
4147 
4355 
4159 
4163 
4167 
477} 
4356 
4356 
4363 
4776 
4364 
473} 
4764 
4737 
4191 
4893 
4198 
4752 
4756 
4563 
4367 
475} 
4555 
4359 
4763 
4766 
4161 
4187 
4793 
4347 
4900 
4554 
4559 
8767 
4381 
4387 
451 
4587 
4194 
4398 
4754 


6868 
388 
aBs 
888 
888 
3868 
3888 
B88 
5868 
888 
586 
886 
B86 
888 
8868 
888 
388 
888 
888 
586 
688 
8868 
888 
8SB 
886 
8868 
888 
688 
888 
888 
888 
8868 
886 
586 
38B 
888 
388 
348 


686 


888 
688 
888 
636 
886 
886 
388 
B86 
386 
388 
886 


SeGooeooGaoocoaoooocooeooeoecooogaeceacocor GO OGOCOCOOONCGOGaAGC GO OGCOCoa G 


4357 
476} 
0100 
8669 
8779 
4588 
4337 
83F8 
4347 
0800 
0008 
B3FS8 
BTAC 
82A8 
5201 
4556 
0000 
4566 
4364 
85FB 
4784 
8860 
4191 
0000 
6008 
475} 
0008 
0100 
4165 
4367 
oo0oc 
4557 
0008 
4763 
B3F8 
BSFB 
4391 
Boac 
4300 
53F8 
4757 
4714 
4381 
4387 
0060 
S3F8 
479); 
&396 
47548 
8768 


4709 
BiAC 
4717 
4376 
BOAC 
4337 
4790 
S748 
$147 
4355 
4159 
4165 
4467 
S771 
4354 
4363 
9000 
4776 
$332 
4731 
4737 
9000 
8593 
9000 
4194 
4752 
4756 
45653 
4567 
4737 
4555 
4359 
&763 
8766 
416} 
4187 
4793 
4347 
4700 
4354 
4559 
4767 
4581 
4391 
Q06H 
4587 
4198 
4398 
4700 
4591 


~M 


&# 


ERSA 
LOL 
SHR 
STX} 
LOL. 
ERSA 
ATL 
LDA 
CLX 
SHR 
SUF 
STA 
LDA 
STA 
LOAS 
ADD 
CON 
LDA 
LOX 
LOL 
LOX 
CON 
LOA 
CON2 
add 
TEGO 
LDA 
SHR 
ERSA 
ATL 
LDA 
ERSA 
BUF 
ATL 
LDA 
STL 
ERSA 
LOL 
TES 
LDA 
ERSA 
LOLA 
TES 
LDA 
CON 
LOA 
ERSA 
LOLA 
TES 
LDA 


HHHAH 


0100 
ROOOO 


HHHHH 
TEMP 


6500 
RL 
TEMP 
MUML, 
REY 
wooo) 
98000 
09000 
&# 
TEMP 


B8ea8s 


00000 


RL 
2F 


RL 
0100 
OHHNH 


RX 
00000 
RL 


TEMP 
TEMP 
HOQ000 
KEY 


TEMP 
MHHOH 
00000 


00000 
TEMP 

HHOHF 
00000 


HHO 
SHR? 


Shx 1 
00000 


“A 
90000 
00000 
CMPL.* 


iF 
90000 


00000 


OWHHH 
is 


HHHHH 
aF 


RN NN. gt renin!” Spent “Cpe, fp NINRAGS' een, ne: © eR et i pe, SS 7 7 
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1399 4708 386 
i400 8391 886 
1401 4396 888 
2402 4755 6888 
1405 4164 868 
1804 4781 93886 
1405 4787 888 
1406 8594 9886 
1407 4549 888 
1408 4894 9888 
1409 4749 888 
i410 §158 388 
1811 45648 388 
18412 4358 886 
1413 4558 858 
lala 4598 886 
1415 4547 886 
14916 4700 3886 
1917 4758 888 
i418 $554 886 
1419 4192 38386 
1420 4767 888 
142i 4150 888 
1822 4759 5888 


09 0000 dQOHH CON 90000 OOOHH 

35 83FR 4896 4 ERS TEMP 

37 0400 47558 SHL 0400 

70 OOGCA 4164 ADD RA 

60 82A8 4781 STA RB4 

77 «#44781 44789 ATL 

25 44742 4394 LDA SRAL 

70 4796 4549 ADOA 90000 00001 

60 4782 4594 STA S@RAL 

70 cOoOR 47489 ADD RL 

05 B87AC 4158 LOX  MUML 

65 B3A8 4564 STX RAS 

70 $201 4356 ADO0S wooo! 

-60 5201 45958 STAS wooo! 

25 4146 4598 LOA N 

70 “?4a2 4847 ADD SERAL 

60 S500) 4534 STAS STOPT Sé 

30 83F8 4758 2 LOL TEMP 

OS 4835 4736 LOX Sé6 COMP 

30 4888 4192 $6 LOLA gas8s 86a8e X30 TRANSFER REMARKS 

a5 8670 4747 LDA ROOO!L If THE REMARKS AREN'T ALL BLANKe COPY THEM 
82 4150 4350 TEQ iF ONTO THE COMMENTS TAPE 7. GO TO#P17 UNLESS 
25 8672 4759 LOA ROOOS DK FIELD WAS Xe IN WHICH CASE wE GO TO 
82 44766 4350 TES iF Fi DIRECTLY. 


1443 4764 688 8674 4382 LOA ROOOS 

1424 4362 888 0 82 4768 4350 TEO iF 
1425 4788 886 0 25 8676 4392 LDA ROOO7 

1626 4392 888 0 82 4197 4350 TEO iF 
1427 4197 888 0 25 B678 4365 LOA ROOO9 

1428 4365 888 0 82 4582 4350 TEQ 2F iF 
1429 4350 386 30 47685 4740 i LDL oe 
1430 4765 888 0 25 4782 4592 LDA 

1431 4782 888 9 00 8678 8449 JMP = =ROOOY R0000 
1432 4592 888 0 80 09659 45482 8 Toc 20000 2F 
1833 4582 3888 0 25 BSFH 4792 2 LDA RTAG 

1434 8792 888 0 31 4397 4397 CLL 

1438 4397 888 0 82 4112 4189 TEQ FIN “PRI 
1436 0989 888 0 09 0900 0000 20000 CON 00000 00000 
1437 0991 888 6 00 0000 9000 Z0002 CON 00000 00000 
1438 0993 888 0 00 0000 9000 ZO004 CON 00000 00000 
1439 0995 888 0 00 0000 9000 70006 CON 00000 00000 
1440 0997 888 0 00 9000 0000 Z0008 CON 90000 00000 
1441 0990 9888 0 88 8888 98688 Z0001 CON ssaBs aeaBa 
1442 0992 888 0 BS seas seas 20003 CON sAe8s 8Ba89 
1443 0994 888 0 8B 8888 Asse 20005 CoN 9888s a8a80 
lo4ga 0996 #888 0 88 sB88e aAsae 20007 coN 98885 B88a 
1845 0998 388 0 88 sae gana Z0009 CON gsAAa8s 88888 
gue HiiH 

1647 4701 388 960 4146 QSsue $2 STA ON Xue COMPILE O1 OP 


oc oEeaaoo0o0n0ocooococcoacooceooocooaocooaooonacouwuUNacecacooococ$e . 
Sd 
w 


igas 0548 886 70 «#0850 9553 ADDF 91000 60000 COMPILE AN O1 OP FOLLOWEO SY THE LINE NUMBER s+ 


eit te ren = 2 Sree ee i lets rai, Z a ai : . 4 cet 
——— a NN ANN eR, nn RS Rt ie i eerie" eeeetnmee”  emeliateet | armada 


Plarul. 


DIVISION OF SPERRY RAND CORPORATION 
PHILADELPHIA, PA. 


IN CONSIDERATION OF THE RECEIPT OF THIS DOCUMENT. THE RECIPIENT AGREES NOT TO 


REPRODUCE. COPY, USE OR TRANSMIT THIS DOCUMENT AND/OR THE INFORMATION THEREIN CONTAINED. 
WRITTEN PERMISSION OF SPERRY RAND CORPORATION, AND FURTHER AGREES TO SURRENDER 


IN WHOLE OR IN PART. OR TO SUFFER SUCH ACTION BY OTHERS. FOR ANY PURPOSE. EXCEPT WITH THE 
SAME TO SPERRY RAND CORPORATION, UPON DEMAND 


14849 
14350 
la3i 
1452 
1455 
1454 
1455 
1456 
1457 
1456 
1859 
1460 
146} 
14662 
14635 
1aoa 
it6$ 
1466 
1467 
1468 
1469 
1870 
187} 
1872 
1473 
inva 
1475 
1476 
1477 
ig7e 
1479 
14880 
148) 
14862 
1483 
166g 
1485 
1486 
1887 
1968 
1489 
1890 
1891 
1892 
1895 
1494 
1895 
1496 
i697 
1498 


0555 
0385 
03559 
0561 
0563 
0767 
0571 
O775 
0579 
05861 
05683 
0399 
0404 
0820 
0425 
4374 
0576 
0580 
OSea 
0388 
0791 
0595 
0799 
0463 
0408 
0605 
0605 
0608 
0410 
0609 
O4j) 
0391 
0393 
0412 
0414 
0418 
8152 
0556 
03558 
0362 
0366 
0570 
OS74 
0377 
0780 
0805 
0407 
0409 
0781 
0585 


688 
888 
838 
8388 
888 
888 
388 
888 
888 
888 
88B 
686 
638 
8868 
86B 
838 
838 
8868 
886 
898 
886 
8368 
688 
858 
836 
888 
838 
885 
896 
6aB 
888 
386 
588 
888 
888 
888 
BSB 
338 
888 
888 
388 
8868 
B88 
688 
85B 


686 


3568 
8868 
888 
888 


SOGCeSGCoOCHSGGOGCA GOO OCCOG GOGO O COCO COMO OOO OGOGOMONONROOORO GGOc 6 | 


Q555 
BiFG 
0$61 
0563 
Bé6ac 
B2A8 
0006 
Bé6AC 
0581 
8670 
S198 
0401 
5196 
0422 
5198 
0576 
8670 
0582 
0586 
OS91 
B7AC 
B2A8 
5201 
O408 
5201 
0605 
Q000 
0816 
0000 
04811 
0000 
0595 
0000 
o418 
GOAS 
4362 
Q554 
0558 
S0aA8 
0100 
0768 
BSAC 
OS77 
0000 
$001 
0002 
0409 
9800 
B6AC 
BSAC 


4332 
3359 
47396 
4740 
0767 
O57! 
0775 
0579 
0583 
8669 
0599 
O04 
0420 
0428 
$142 
4505 
0580 
osu 
osaa 
0791 
0598 
0799 
a4o3 
quo8 
9603 
0608 
a000 
a412 
9000 
O412 
9000 
0412 
9000 
4332 
2418 
4736 
0856 
a560 
0362 
0566 
0570 
os74 
0577 
0780 
0803 
O07 
9780 
0000 
0585 
0589 


LOx 
LOL 
LDX 
Lol 
LDA 
STA 
LIR4 
STA 
LDA 
JMP 
TCO4s 
ADDA 
TCO4 
A0DA 
TCO4 
LOL 
LOA 
ERSA 
LOLA” 
TEQ. 
LDA 
STA 
LoaS 
ADD# 
STA4 
ADD 
CON 
LOA 
CON 
LDA 
CON 
LDA 
CON 
LDX 
LOL 
L.DX 
LOXA# 
LOL 
LDA 
SHL 
ERS 
STA 
CLL 
LIR? 
STLi 
TIR1 
AO 
CON 
STL 
STL. 


LINE 


MMI 

RB4 
0006 

MUMI 


ROOOL 
w9994 
00000 
w9996 
900900 
w9998 


ROOOL 
00090 
90000 
1F 
MUML. 
RES 
wood! 
01000 
woo0dl 


97000 
06000 
05000 
oa00y 
OK 
$8 
63000 
DK 
0100 
HOOO0O 
KEY 
0000 
STOPT 
9a02 


99980 
MUMI 
COMI 


CMP. * 


COmP* 
COnT* 


eF 
ROO0O0 
20002 


20502 
FIN 
SDK 


HHHHH 
88888 


900000 


“FLO 
00000 
aF 
00000 


aF 
006000 
aF 
60900 
CMPL* 


COMP™ 
60000 
TERMS 


HOOOO 
“CLR 


=CLR 
00000 


ANO TRANSFER THe SUBSECTION NAM: + COLUMNS 
32-40. TO THE MuM CODE AREA AND THE COMMENTS 
TaPeE aLSOe TO#P17,. 


XS5e COMPILE CONDITION 


BLANK OUT THE OK FIELD. IF COLS 36-40 ARE 
BLANK THIS INDICATES A BRANCH TO THE NEXT 
SECTION SO AN O08 OP IS SELECTED. OTHERWISE 
THE LAST OP COMPILED IS INCREASED BY 1, 

IF IT WAS AN Ole SELECT OP O06 ELSE SELECT 
OP 0S. FINALLY COMPILE THE SELECTED OP 
FOLLOWED BY THE CONDITION NAME, GO TO#X2 
TO SCAN THE REST OF THE REMARKS. 


FINISH PREV SECTION 

COMPILE o3 Op ANO THEN PUT OUT A 
SENTINEL ON THE COMMENTS TAPE, WRITE THE 
STOP TABLE FOLLOWED BY ALL THE MUM CODE 
ON THE CONTROL TAPE Ge THERE 18 ROOM FOR 
ABOUT 1500 LINES OF MUM CODE, 

INITIALIZE 

RECORD THE NEW KEY LETTER SKIP TO THE NEXT 
PaGe ON THE ASSEMBLY LISTING. 

WRITE THIS LINE ON THE COMMENTS TAPE ANDO 
RETURN TOAPI7. 


A ANS pete feet “tence: onienettnty pnemenetene - i 
A ey NN = RY eNO, eR tem ne eR nnn | Somes | IRE urn oat’ ‘ertmimmeenmemmense | puminhs aan 





Fland 


DIVISION OF SPERRY RAND CORPORATION 
PHILADELPHIA, PA. 


IN CONSIDERATION OF THE RECEIPT OF THIS DOCUMENT. THE RECIPIENT AGREES NOT TO 


REPRODUCE, COPY, USE OR TRANSMIT THIS DOCUMENT AND/OR THE INFORMATION THEREIN CONTAINED. 
WRITTEN PERMISSION OF SPERRY RAND CORPORATION, AND FURTHER AGREES TO SURRENDER 


IN WHOLE OR IN PART. OR TO SUFFER SUCH ACTION BY OTHERS. FOR ANY PURPOSE, EXCEPT WITH THE 
SAME TO SPERRY RAND CORPORATION, UPON DEMAND 


1499 
1500 
1501 
1802 
1505 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1311 
1512 
15135 
1514 
1315 
1516 
i517 
1518 
1519 
1520 
1S21 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1S29 
1550 
1331 
1532 
41535 
1534 
1555 
1836 
1357 
1538 
1539 
1340 
1541 
1842 
1543 
1844 
1545 
1846 
18547 
1548 


0389 
0394 
0596 
0490 
0402 
0406 
0616 
0415 
0618 
0622 
0429 
0433 
0436 
O84 1 
0443 
0636 
0638 
0805 
0560 
0564 
0967 
O77 1 
0774 
0778 
0980 
07684 
0788 
0390 
3003 
0607 
0809 
3005 
0822 
0532 
0536 
0540 
0625 
0629 
0631 
0427 
0343 
0547 
060] 
3205 
Oso? 
3203 
0745 
0762 
2167 
0565 


888 
888 
8868 
886 
888 
888 
888 
338 
888 
BSB 
886 
838 
BBB 
888 
888 
886 
8868 
588 
886 
888 
586 
858 
3868 
886 
888 
886 
838 
8368 
B88 
888 
888 
888 
B88 
888 
8688 
588 
888 
8668 
886 
888 
a8s8 
686 
858 
688 
8938 
8588 
| 
886 
888 
888 


ececncceaceacoaococooocooccaocoaocoaoocoooococecocaaooacooooaococeoc ., 


4742 
G1N6 
0400 
4112 
0804 
0808 
B2ac 
0618 
B2aACc 
o460 
ous! 
O836 
0458 
Oaas 
0046 
0638 
0000 
3333 
SOFB 
0967 
Béac 
BOFB 
oooc 
0960 
Beac 
0786 
0590 
3401 
3005 
0809 
3400 
0760 
0000 
0200 
B6ac 
0543 
0427 
0631 
59000 
0600 
0545 
5199 
3203 
0807 
59000 
0600 
0300 
3167 
BU4G 
4223 


9894 
0598 
0402 
4740 
0u06 
0610 
O415 
06168 
0622 
0429 
0433 
0436 
Outs 
0636 
9000 
9004 
0804 
QOOA 
0364 
0967 
0773 
O774 
0778 
4736 
0784 
o78a 
QO0A 
3003 
0607 
a919 
3008 
0822 
0628 
0836 
0540 
0625 
0629 
aoi9 
0427 
Q832 
O54? 
0601 
3208 
a919 
3203 
sora 
0762 
ose 
0745 
9978 


PAGE 


&SKIP 
TERM* 


ROP 


STL 
STL 
LOL 
LDL 
STL 
LDAA 
SUB 
CLL 
STL 
SHL. 
LDLA 
TGR 
ADDA 
SUF 
CON 
Add 
PFD 
HLT 
STL 
CLL 
LDA 
TEG 
LOL. 
LOX 
LDA 
LOLA 
ADO 
STL 
LOX 
LOL 
TBL. 
TWR 
LIR1 
TIR1 
LDL 
TG 
LOX 
LDL 
TEL’ 
TWR 
LDAS 
STAL 
LDx 
LOL 
TBLi 
TWR 
TRO 
TeT 
HLT 
LDA 


SERAL 
N 


FIN 
~SKIP 
00000 
Lc 


LC 
0400 


00004 
00001 
90004 


0000 
3335 
EXIT 


MUMI 
EXIT 
RX 


com! 
99999 


CMTSi 
2F 


COMTS 

OTAPS 
9000 
0200 

MUMI 

3aF 

2F 


w9800 
OTAP2 
99999 
w9999 
2F 


w9800 
OTAP 2 
ITAP1L 


Sued 
TCONL 


PAGE* 
COmMT # 


00066 


90000 
iF 
00000 
iF 
g0000 


“SKIP 
RA 


COMP* 
99999 
RA 
TSUB* 
2F 
uF 


“oF 
TSUBs 
ar 

18 
99999 
TSUS* 
EXIT 


iF 
BOP 


Gama @ 


SKIP TO SEGINNING OF PAGE SUSROUTINE 


TERMINATE SECTION SUBROUTINE. 

RL IS THE EXITe RX IS THE O3 OR O48 TO COMPILE 
THIS SUBROUTINE DOES WHAT 1S CESCRIBED 

UNDER SUBSECTION Ké6e 


BEGINNING OF ASSEMBLY 


CHECK 


HOLD IF INPUT TAPE ISNT READY*HALT AND RETURN 


TORBI. 


acres enema ene Aan” cateneneninin enn me eerie cna et te ee ee eB . 
i a a i ae em RE mt ee 


1549 O975 6888 
1330 QO779 888 


60 88FG 30779 STA TCONT cles | 
25 aféS 3747 LDA BaP 82, READ BLOCK 


4 


: a 
E a 3 
ae 1551 0747 888 39 60 B9FG 955} STA LUTAPE READ IN FIRST BLOCK INTO INPUT 3UFFER 
zz 1552 0551 888 09 03 6753 0785 Lox fF 
> i 1553 0755 888 030 oooc 8919 LOL aX TSUS6 
Ee 1854 0753 688 0 G2 0300 9770 i TRO yTAPL UNLOAD FIRST TaPE BUFFER ANO INITIATE 
o 1555 0770 B88 0 25 4624 O776 LDA TCON2 READING SECOND aLOcKk. THE INPUT TaPE IS 
hes 1556 0776 888 060 BSFa 3180 STA TCONT ALWAYS READING ONE BLOCK AHEAD. THERE mUST 
“S8 1557 X THEREFORE BE AN EXTRA HASH BLOCK aFTER THE 
a 1958 X ENDING SENTINEL. 
1959 X% EACH TAPE BLOCK CONTAINS 10 LINESe 
1560 3180 888 0 30 0762 o984 LOL iF | 
1961 0782 888 100 0000 9001 CON1 00000 Q0001! 
1562 0986 888 0 50 siFG 0o988 i STL LINE 
1563 0968 88B Oo 31 3191 3191 CLL 
1564 3191 888 0 50 B7FG 0795 STL TAPE! iF 83. INITIALIZE 
1565 89AH 88B 0 OB 0999 ce71 BOP1 LIR1 0999 
1566 0671 888 0 31 O74 OA74 CLL 2F 
1567 0974 B88B 0 29 1000 0602 2 LDA1L sTAs G CLEAR SYMBOL TASLE IN MULTIPLE ASSEMBLY, 
1568 0602 3888 0 70 0608 3007 ADD ~BOPR 
1569 060% @88 0 12 0000 0000 CON 12000 00000 
1570 3007 886 0 34 1000 3008 “BOPR STL1 STAB &BOPR 
1571 3008 886 0 0G 9999 0612 &BOPR IIR1 9999 
1872 0612 8BB oc 82 0795 O4u74s TEQ if 28 
i573 0795 885 050 a3FC 3199 1 STL cORE SET LOWER CORE AVAILABLE 
1574 3199 888 0 30 B4FC 3603 STL BLANK SET BLANK ADORESS UNDEFINED 
1575 3603 888 0 50 A7FH 3207 STL FTAG SET FLO MODE OFF 
1576 3207 888 0 50 85aC 0611 STL ACCUM 
1577 0611 888 0 50 Beat 9415 STL MUMI 
1578 0615 888 0 50 @82ac 0419 STL te SET LINE COUNTERS TO ZERO 
15879 0419 888 0 50 B3ac 0423 STL LINEO 
pie 1560 0423 888 0 08 cCO00 0626 LIR1 0000 «57 | 
rir y 1561 0626 888 0 34 86N9 O83! “BP STL1 10000 SET FORWARD AND BACKWARD LOCAL TABLES 
Seis 1562 0631 9888 0 0G 0001 0435 TIRi 0001 {I AND J TABLES) TO UNDEFINED, 
uoee 1583 0435 8BB 0 70 0437 0426 AOD “BP 
G5 82 1584 0437 83868 0 99 9980 0000 CON 99996 00000 
ar 1585 0627 88B 9 25 0829 3031 &BP LDA ar 
aah 1386 8=©60829 «8BB 0 00 8616 8417 JMP 00199 00000 
gee 1587 3031 888 9 80 7800 oune 8 TOC = yoodO 
ieee is88 OSN6 B88B 6 BS 4800 OH61 TCD 70000 
rez5 1569 0461 888 0 30 O863 NGS LDLA Be6GcG 99999 SET ORUM STATUS SO THAT O00! To 4999 
Zu So 1590 0465 888 0 50 B4d18 469 $TL 00001 ARE AVAILABLE 
seus 1591 0469 888 0 0B OOO! 2472 LIRi 0001 
Baro 1592 0672 886 0 30 04674 2676 LOL -5P 1 
zee 1593 «0674 «=88B 0 GG «6GaG9 649999 CON GGGGG 99999 
680 1594 0676 888 vu S34 8418 O481 BPI STL 00001 
oBFO 1595 0981 888 9 0G o001 9488 TIRi 0001 
wos A 1596 0485 688 o 70 0887 9676 abo ~BP 1 
yroz 1397 0487 888 0 99 9800 0000 CON 99980 00000 
zee 1598 0677 888 0 30 O479 0681 &BPL LOL’ 90000 00aB8a SET HHH BLANK. 
ween 
rZe 


SAME TO SPERRY RAND CORPORATION, UPON DEMAND 


1599 
1660 
i601 
1602 
16005 
16048 
1605 
1606 
1607 
1608 
1609 
1610 
i611 
i612 
1613 
1634 
1615 
1616 
1617 
1618 
1619 
1620 
1641 
1622 
1625 
1624 
1625 
1626 
1627 
1628 
16249 
1630 
1651 
1632 
16353 
1638 
1655 
~ 1656 
1637 
16358 
1639 
1640 
164) 
1642 
1643 
1644 
1645 
1646 
1647 
1648 


DIVISION OF SPERRY RAND CORPORATION 
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IN CONSIDERATION OF THE RECEIPT OF THIS DOCUMENT. THE RECIPIENT AGREES NOT TO 
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SAME TO SPERRY RAND CORPORATION, UPON DEMAND 


nc San em le RRR NE RN nme Neenenpede temas = tne meneame memati, need a - faba eee 
pus i ee SNR nn uate RRR 
5 need le 


0661 
0685 
0508 
03461 
0953 
0802 
0641 
0445 


B7AG 
0669 
0673 
0675 
0871 
0875 
0679 
0881 
0687 
0491 
0495 
0502 
0873 
0493 
0695 
0497 
0301 
0503 
0703 
0500 
0903 
0507 
0710 
0600 
9700 
0517 
0510 
03527 
0330 
0877 
B3AH 
0670 
3073 
04576 
3002 
0825 
0664 
0869 
0896 
0701 
0505 


886 
888 
888 
B86 
888 
858 
858 
886 


see 
B86 
8868 
B88 
8868 
8868 
88B 
588 
885 
386 
888 
868 
888 
838 
68a 
B88 
888 
888 
888 
BSB 
BSB 
386 
666 
888 
888 
388 
BBB 
866 
8868 
886 
B88 
836 
386 
8858 
8868 
888 
B38 
388 
898 
886 
888 


Oocacocooccacaccacocaceococancaocvaccoocacoococoocer acaoooooce . 


B6éFH 
4056 
4459 
4201 
4200 
4189 
8901 
8902 


0002 
0871 
0675 
QO00A 
os7s 
0877 
0881 
BSAC 
B6FB 
O49S 
§200 
B3A6 
HHHH 
0695 
0497 
0499 
0305 
B9AH 
0500 
09605 
B7FH 
0310 
0600 
0700 
0400 
8000 
0300 
0510 
7800 
0000 
0670 
2075 
3073 
0200 
0225 
0262 
0267 
0294 
0299 
0305 
0308 


0685 
0508 
084i 
0953 
0802 
0641 
O4us 
a902 


0669 
9673 
88109 
0871 
0875 
0679 
8900 
0687 
0491 
0495 
0502 
0641 
9000 
0402 
0402 
o501 
0560 
0703 
Q500 
Q903 
0507 
QO716 
0400 
0760 
0517 
3000 
0527 
0536 
74601 
7905 
9402 
3073 
9476 
3002 
0825 
0664 
Qa69 
0496 
O703 
O305 
9910 


WRITE 


END 


PaT 


STL 
LOL 
STL 
LOL 
STL 
LDA 
STA 
CLA 


LIRS 
LOX 
LOL. 
HLT 
BUF 
LOX 
LOL. 
LDA 
STA 
LDA 
STA 
LDA 
HLT 
LOL 
LOL 
LOXA 
LOL 
HLT 
TRY 
CLL 
LDA 
TEQ 
TRY 
TRY 
TRO 
TBU 
TRO 
TET 
TRU 
JMP 
LOL 
CLA 
ZAP 
STA 
STX 
STA 
STX 
STA 
STX 
STA 
STX 


HTAG 
ONS¥ 
SWICH 
STRT 
START 
PRI 
=NEX 
&OEX 


0002 
ar 


RA 
iF 
aF 


Accum 
ERROR 
SF 
START 
PSUDX 
HHA 


04000 


BOP 1 
OTAP A 


FTAG 
iF 
OTAP2 
OTAPS 
o400 
p000 
OTAP 1 


iB 
Yoo00 
0000 


0200 
0225 
0262 
0267 
6294 
0299 
93035 
0308 


WRITE 


FIND#® 
2F 


OTPT* 


WRITE 
0000 
PAGE « 
PAGE* 
900000 
TERM« 


BQOO 


YQo0O1 
yO105 
PAGE* 


84e OUTPUT GETS LOADER 
WRITE LOADING ROUTINE ON OUTPUT TAPE. 
NEITHER TAPE IS EVER REWOUND BY THE PROGRAM, 
X WE ARE NOW READY TO TAKE OFF eGOING TOSEL. 
Ze ENDING OF ASSEMBLY, 
Zie FINDe Me . 
FIND M,. IF UNDEFINED: HALT ANDO THE OPERATOR 
1S SUPPOSED TO FILL RA WITH THE RIGHT THINGe 
Z2-e ASSEMSLE TRANSFER 
ASSEMBLE HLT HHHH MLOC INTO LOCATION 9105 
WHICH WILL CAUSE THE LOADING TO STOP WITH 
THIS INSTRUCTION. 
Z3e CLEAN OUTPUT SUFFER. 
WRITE THE LAST BUFFER LOAD ON THE OUTPUT 
TAPE. PRINT THE END LINE ANO THE ERROR 
INDICATION ON THIS LINE IS BLANK IF AND ONLY 
IF NO ERRORS OCCURRED DURING ASSEMBLY. 
24. EVECT PAPER 
SKIP THE PRINTER PAPER ABOUT 2 PAGES AHEAD. 
256 FINISH FLO 
FINISH PROCESSING THE LAST SECTION OF FLOW] 
CHART: IF ANY (SEE X6¢ EXCEPT COMPILE 
Od INSTEAD OF O3 OP). 
260 HALT 
HALT THE COMPUTER: PASS 2 IS FINISHED, 
276 FLOWCHARTING 
NO. If NOT FLOWCHARTING?* SLOAD THE ASSEMBLED 
YESSPROGRAM. IF FLOWCHARTING* GO ON TORPASSS« 


LJ 


Flan. 


DIVISION OF SPERRY RAND CORPORATION 
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SAME TO SPERRY RAND CORPORATION, UPON DEMAND 
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SUF A 
LOX! 
STA 
STX 
LOA 
SUF # 
LOX) 
STA 
$TX 
HHH 
LIR2 
LOA 
CLx 


STA2 
LDA 
SHP 
STXxX 
CLX 
SHP 
§TA2 
LDAI 
ERSA 


iF 
iF 
R 
STGN 
ERROR 
ga0l1 
RA 
LINE 
00000 
iF 
iis 
LINE 
B003 
8009 
0500 
Beae8a 
6334 
RX 
00008 
0218 
g002 
8008 
0500 
0339 
0225 
8007 
00000 
A006 
O2%1 
0246 
8005 
000006 
g004 
0305 
0308 


0000 
8003 


0500 
30000 


R 
0900 
R 


0700 
AM 

8002 
HHHHH 


90001 


iF 


00000 


00008 


00004 


00008 


~ST 


90000 
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Elie CHECK LINE NO} 


f2, TRANSFER 


E53, SEPARATE OFF Re He 


G6 48O6 4456 OLX Eee EOIT OP CODE. 


< 0655 8952 888 1 60 8700 4953 §TA2Z 30001 
eg 0656 8953 88B 1 20 B699 a95u RUF2 30000 
8% 0657 83954 B86 1 60 8706 3955 STA2 4 
25 0658 8955 4668 o 29 Boo? 4956 LDAL 8002 
= ~ 0059 8956 888 9 37 O800 4957 SHL 0400 
£ O 0660 3957 3988 0 35 8958 2959 ERSA OOHHH 00000 
5 0661 3959 88B 1 20 8707 3960 BUF2 AH 
on 0662 8960 888 1 60 8707 a961 STAZ AH 
re 0663 8961 888 0 0G 0002 a962 IIRL 0002 
3 0668 8962 888 1 07 GOO? 8963 TIR2 0002 
06605 8963 888 0 70 89645 8938 ADO | ~ST 
0666 8965 888 0 99 9994 9000 CON 99999 40000 
0667 HHH H 
0668 8939 886 0 29 8004 4244 AST LDAL 9004 £4, MOVE COMMENTS 
0669 4248 88B Q 60 8469 4248 STA ROOOO 
0670 424a 3888 0 29 8005 4603 LOAL 98005 
0671 4605 BBB 0 20 4403 4607 BUFA 80000 90000 
0672 4607 888 0 60 5670 4811 STA ROOOL 
0673 4441 886 0 29 80048 4016 LDA1L 8006 
0674 4016 888 0 60 8671 4620 STA ROOO0? 
0675 4620 888 9 29 8007 4625 LDAL 8007 
0676 4625 886 0 60 68672 4229 STA ROOOS 
0677 4229 888 0 29 8008 4434 LDAL 8008 
078 4434 9888 0 60 8673 4238 STA ROOO4 
0679 4238 888 0 29 8009 4243 LOAL 8009 
0680 4243 888 0 60 86748 40487 STA ROOOS 
0081 4047 688 0 29 8010 4202 LOAl 8010 
0e62 4202 888 0 60 68675 4206 STA ROO06 
0663 8206 898 0 29 BO1l 4613 LOAL oil 
0684 4611 888 0 60 8676 4415 STA ROOO7 
0685 4415 888 0 29 8012 4070 LOAL Ola 
. 0686 4070 688B 0 60 6477 4424 STA ROO0O8 
egre 0687 4424 8868 0 29 BO1S 4429 LOAL ols 
Sei Gi 0658 4929 688 060 B478 4433 STA ROO09 
Bees 0689 4833 888 0 25 68701 4037 LDA 30002 
gz Ho 0690 4037 888 0 37 O300 4248 SHL 0500 ES. CONSTRUCT CONSTANTS 
or 0692 4245 888 0 20 8703 4049 BUF 30004 
E285 0692 4049 88B 0 60 B2FG 4053 STA MCN 
a 0693 4053 888 9 25 8704 4957 LOA 30005 
Weis: 0694 4057 888 0 06 4610 4610 CLX 
Fee? 0695 4610 8868 0 32 0800 4018 SHR 0500 
zu So 0696 4018 888 0 20 8702 4222 BUF 30003 
seus 0697 4222 888 0 60 S3FG 4026 STA MCZ 
B50 0698 4026 888 0 35 4ozB 4630 ERSA 11111 dlbdi 
£0 < 0699 4630 888 0 70 OOOA 4235 ADD RA 
“£29 0700 4235 888 0 70 000A 444g ADD RA 
532 O701 4440 68B 0 20 B82FG 44ad BUF MCN 
£g<0 0702 4444 888 0 60 S4FG 4448 STA MC 
uegz 07030 4448 688 0 29 8003 4253 LDAL 005 
FERS 07048 4253 888 0 
2h 
zeouw 
eeu 
06 
8h 28 
7456 
wee 
eZs 
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IN CONSIDERATION OF THE RECEIPT OF THIS DOCUMENT. THE RECIPIENT AGREES NOT TO 


z ; 
< 07038 4506 8BB 0. 0700 4216 SHR 0700 
D 0706 4216 888 0 COOA 4270 LDL RA 
he 0707 4270 988B 0 8002 4075 LOAL odd 
25 0708 4075 9888 0 0700 48435 SHR 0700 
= 0709 4935 886 Oo Q300 4443 SHL 0500 
zo 0710 4443 888 0 0008 4287 BUF RL 
a 0711 4247 BBB O ; 4249 440} BUFA 88000 asooo 
6 a 0712 4901 B86 0. BS5FG 4055 STA oP 
: O713 4055 88B 9 B6FG 4209 STX IR 
> o7 14 4209 888 0 0018 4213 IIR oal4 af 
0715 4213 @8B Oo B7FG 4017 2 STA TAPEL E7e INPUT BUFFER EMPTY 
0716 4017 688 0 8000 4422 LDAL 000 
0717 4422 888 0 31 4275 4275 CLL 
0718 4275 @8B 0 4228 4428 TEQ oF 
O719 4428 888 0 09 8001 4633 LOX’ M00) 
0720 4633 BBB 9 cooc 3919 LOL Rx TSUB« ES. SWAP BUFFERS 
0721 8201 888 2 0300 4218 $0200 TRO YTAP) 
O722 4218 88B 0. 0201 4221 LIRL 0202 
07243 4221 9888 0 4223 4475 LDA TCONL iF 
o74a4 4223 688 0 F6 68001 4483 TCON] TBU $0000 =% 
0725 4459 888 0 886A «4453 &5 HLT 9886 ~% 
0726 4453 BBB O. 8200 4257 ~5 STA 50199 3F 
0727 B402 388 0 0300 4019 60200 TROD ITAPI 
0728 4019 888 0 0000 4622 LIRi 0000 
0729 4622 888 0 25 4624 4475 LDA TCON2 iF 
0730 4625 888 0 F6 B202 4683 TCON2 TBU 60000 ~6 
0731 4654 888 0 67 8888 4653 &6 HLT 8888 <6 
0732 4653 888 0 60 8401 4257 -6 STA 606199 3F 
0733 4257 888 0 31 4060 4060 3 CLL 3¢ 
0734 4875 @8B 0 60 B88FG 4629 i STA TCONT 
0735 4629 B8B 06 0G 6000 4083 1IRi 9000 
a 0736 4083 98868 0 60 B87FG 4228 | STA TAPE! oF 
wry 0737 8919 888 050 GOFH 4423 TSUBe STL TEX! TAPE SUBROUTINE. RL IS EXIT+ RX IS TAPE INST. 
SEG 0738 4423 885 6 65 BIFH 4927 STX TEX iF 
oF 0739 4027 9888 0 C7? S432 4927 1 TaT * WAIT UNTIL PREV TaPE INSTRUCTION CLEARS. 
z He O740 4432 B88B 0 26 4635 4635 CLA 
Big 074} 4635 888 0 82 438 4638 TEQ 2F 
at O742 4638 688 0 25 B89FG 4242 LDA LTAPE 
Eee 0745 4242 888 9 67 2222 200A NLT 2222 RA HALT IF INDICATOR LIGHT ON 
Eee 0744 4438 88B 0 25 B8FG 4u42 2 LDA TCONT 
BM O745 4442 888 0 31 4445 4uas CLL IF PRECEDING WAS A READe UNLOAC SUFFER 
Te 0746 4445 886 5 82 4060 900A TEO SF RA 
oP O747 4060 688050 BaFG 4402 3 STL TCONT PUT NEXT TAPE INSTRUCTION INTO LTAPE 
are 0748 4402 888 0 25 SIFH 4606 LDA TEX 
ae 0749 4606 888 0 35 408 4260 ERSA HHHHH HOOOO 
ize 0750 4260 888 0 20 4612 4214 BUF ar 
359 0751 4612 885 0 00 0000 4027 JMP = 0000 18 
apes 0752 8214 388 060 89FG 39FH 8 STA LTAPE TEX! 
z9Z 0753 4228 888 0 30 BSFG 4432 6 LoL oP £9, OP SRCH*, 
ai O754 4632 38B 0 25 4634 4636 LDAM ga220 886548 
ran) 
woo 
B22 
soi 
a5 
ez 
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< ") 
fe) 
g 108 0006 4409 ONSW L1R3 0006 
8% 0757 = 4409 -8BB 0 0S «(4061 «(4415 LOX 1F 
25 0758 4413 888 0 25 4618 4712 LOA SRCH* 
7 0759 4615 888 9 30 4219 8736 LDL ERR1* 
8 0760 4219 888 0 25 4623 4678 LDAM 67220 00000 
z 0701 4675 88B 0 64 2000 4061 STAL ETAS iF 
g 0762 4061 88B 0 30 4613 4065 1 LOLA ceccc eccce 
: 0763 4065 BBB 0 87 4418 004 TGR RA 
3 0764 4418 BBB 9 60 85Fq 4072 STA OP 
0765 4072 885 a 30 4oO7e 4226 LDL pROCM PROCA 
0766 HHH . 
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0767 
0768 
0769 
0770 
O771 
0772 
0773 
0774 
0775 
0776 
O777 
0778 
- 0779 
- 0760 
076} 
0762 
~ O785 
- 0764 
0785 
0786 
0787 
0788 
0789 
0790 
0791 
O792 
0793 
0794 
O795 
0796 
O797 
0798 
0799 
0600 
0801 
0804 
0805 
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te a Re ttt” i Seca Aaa ee a sa en - 
een” St ene Le Re cue i 2 — ee 

en ee - s - ™ 

iene A ee  - en piet mieee * Fee ner 


4226 
4079 
4283 
4237 
4241 
BOO4 
4447 
4601 
4204 
46u4 
4600 
4602 
4010 
4O1l 
4012 
4013 
4o148 
4015 
4217 
4419 
4648 
4404 
4608 
4461 
4265 
4618 
4261 
4465 
4417 
4619 
4274 
4227 
4272 
4926 
4279 
4068 
4470 
4472 


588 
886 
B88 
858 
8868 
688 
886 
686 
888 
BBB 
58B 
888 
88B 
388 
888 
88B 
8686 
8868 
8938 
B86 
S88 
888 
688 
886 
888 
BBB 
888 
838 
8868 
386 
888 
886 
88B 
386 
88a 
B86 
888 
885 


oOorercococacdroccacecoocococoererr cocaconoooccor 


0000 
B2FH 
8706 
8639 
46u4 
4447 
B4Fc 
46uG 
4664 
4648 
4602 
4010 
0002 
0002 
O18 
B1iFG 
B1FG 
BFS 
8419 
4648 
@S5FC 
SEFC 
826) 
B7FC 
8618 
BSFH 
B7FC 
4u17 
0000 
0008 
4227 
B4aFH 
B3IFH 
4279 
B4aFC 
8470 
0000 
BSFC 


4079 
4283 
4237 
428} 
4o94 
8447 
4601 
4204 
a736 
4600 
a810 
4OLO 
4o12 
4O12 
a736 
4217 
4217 
4217 
a723 
a861 
4408 
4608 
4461 
4265 
4068 
4272 
446s 
4619 
9000 
4274 
4618 
4272 
4826 
4279 
@2FH 
4472 
0000 
4272 


PROCA 


Loo0o0 
Loo‘! 
Lo002 
Looos 
L.o0098 
0005 


LIRS 
STL 
LDA 
LOLA 
TEC 
CLL 
LDA 
TEO 
LOL 
LOX 
LOL 
JMP2 
LIR2 
LIR2 
LOL 
LDA 
LGA 
LDA 
LOL 
LOL 
STA 
LOL 
TE 
LOL 
TEQ 
LDA 
LOL 
LDA 
CON} 
ADO 
TEG 
LOA 
STA 
Clot. 
$TL 
LDA 
CON 
ADO 


0000 
AEX 


a 
00000 
iF 


BLANK 
iF 
1F 
2F 


0000 
0002 
0002 

L0004 

LINE 

LINE 

LINE 


aF 
ALOC 
MLOC 
3F 
cLoc 
tad 
cLEV 
cLoc 


00000 
RL 


MLEV 
ALEV 


BLANK 


00000 
ALOC 


86a68 


ERR 1* 
FIND« 


L00o02 
Loo02 
ERRi* 
iF 
1F 


iF 
FARGe 
DEFN+ 


eF 
iF 


SF 
00000 


iF 


AEX 
aF 
00000 
i6 


Le 


Lie 


Le 


L3e 


Le 


LSe 


PROCESS A ADORESS. 


CHECK BLANK & 


FINO®# Ae 


FARG*»DEFN®. 


ADJUST A LEVEL. 


ZERO TO BLANK. 
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0807 
Oss 
0809 
0810 
0811 
0812 
0845 
0814 
0815 
0816 
0817 
0818 
0819 
0820 
082} 
0822 
08<¢5 
0624 
0825 
0826 
0827 
0828 
08<9 
0830 
0651 
0852 
0835 
08354 
0855 
0836 
0857 
0858 
0859 
0840 
0841 
0642 
0643 
O844 
0845 
0846 
0847 
0846 
0849 
0850 
0851 
08652 
0853 
0854 
0855 


4074 
4628 
4062 
4265 
4089 
4642 
4Ou6 
4051 
4085 
4289 
4294 
4298 
4103 
4857 
4460 
84,4 
$268 
4621 
4626 
&O79 
4282 
4084 
#000 
4001 
4002 
4003 
4004 
4008 
4006 
4OOT 
#008 
4009 
4052 
4256 
4660 
4614 
Gai 
4125 
4427 
44g3 
94865 
$@4)j 
4645 
4856 
#110 
4O64G 
4069 
4073 
4328 


838 
888 
8686 
3868 
888 
688 
B88 
BBB 
688 
888 
888 
886 
88s 
888 
888 
888 
588 
888 
588 
586 
3868 
888 
58B 
BSB 
888 
888 
8588 
688 
88B 
688 
888 
886 
BSB 


B88 | 


8868 
888 
88a 
38B 
888 
888 
B38 
888 
836 
888 
BBS 
886 
688 
888 
8868 





eocoococoaccacocoaoccocoecocoecacococaoooccoracooccocoooos 


Bors 
4080 
4085 
4437 
4085 
83FH 
4098 
B3FH 
BSFG 
0200 
4246 
83FH 
BOFH 
9002 
B6FS 
4416 
442) 
0200 
uur 
4282 
wos 
4000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
BOFC 
0100 
BSFG 
85F6 
BOFH 
4427 
86FC 
44BS 
BUFH 
BOFC 
0800 
BOFG 
4062 
0200 
B4FG 
4325 
4679 


4628 
ana2 
4285 
anag 
4642 
4046 
4051 
4085 
4289 
4294 
4298 
4103 
4457 
4460 
Qu14 
4268 
4621 
4626 
4479 
4282 
QOOA 
4052 
0000 
0000 
000! 
Q001 
9002 
Q003 
0008 
0006 
9007 
0008 
4256 
4660 
4614 
4468 
4128 
a723 
4483 
aa7t 
4ou) 
4645 
4056 
4119 
4964 
4069 
4073 
3900 
U3] 


PROCM 


agoood 
ao00} 
90002 
90005 
Q0004 
Qg005 
20006 
90007 
990008 
Q0009 


LDA 
LOLA 
TES 
Lola 
TES 
LDA 
ADDA 
STA 
LDA 
SHR 
€RSA 
Add 
STA 
LIR3 


LDL# 
TES 
SHL. 
CLL 
CLXx 
ADD 
LDA 
CON 
CON 
CON 
CON 


CON 
CON 
CON 
CON 
CON 
STA 
SHR 
BUF 
STA 
LOA 
LOL 
STA 
LOL 
STA 
LDA 
SHR 
LDA 
ERSSA 
SHR 
LDA 
LDL 
LOAM 


IR 
00000 


iF 
10000 
iF 
ALEV 
00000 
ALEV 
oP 
6200 
00000 
ALEV 
OPTIM 
00024 
IR 
10000 
SF 
0200 


SF 
Qo0000 
90000 
40000 
00000 
40000 
00000 
Q0000 
00000 
00000 
00000 
00090 
SIGN 
0100 
oP 
oP 
OPTIM 


MLOC 


MLEV 
MLOC 
o800 
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00000 

0200 
MC 


90000 


003800 
00700 


90001 
iF 
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00400 


RA 
uF | 
90000 
90000 
00001 
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00005 
90005 
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00007 
00008 
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Q00HO 
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0857 
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0860 
0861 
0862 
0863 
0864 
0868 
0866 
0867 
086s 
0869 
0870 
0871 
0872 
0873 
0874 
08675 
0876 
0877 
0878 
0879 
0680 
0881 
0832 
0885 
08aa 
0865 
0886 
0887 
0656 
0890 
0891 
0892 
0893 
0894 
0895 
0896 
0897 
0896 
0899 
0900 
0901 
0902 
Q905 
0904 
0905 


- 0906 


a . 5 


4431 
4468 
4672 
4u75 
4129 
4022 
4076 
4280 
4683 
4020 
4023 
4122 
4025 
4028 
4021 
4329 
4631 
4670 
4276 
4278 
4685 
4489 
4643 
4098 
4499 
4303 
4657 
4310 
4262 
4$10 
4063 
4668 
4273 
4498 
4503 
4656 
4710 
4462 
4106 
4058 
4S?7 
4476 
4081 
4135 
4689 
u2O4 
4118 
407} 
4525 
4627 
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858 
888 
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888 
B86 
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888 
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6710 
4670 
Ga74 
4129 
4020 
BSF6 
4078 
4021 
BSFC 
4122 
4122 
4670 
39FH 
BOFH 
BOF H 
463) 
46706 
Bé6FC 
4278 
B4FH 
BSFG 
S60} 
4095 
7000 
B6FC 
4255 
4310 
4262 
0000 
4063 
0200 
BSF6G 
BSFG 
§251 
4656 
SSFG 
4462 
0000 
4058 
1006 
BSFH 
BaF H 
BSFG 
4637 
0008 
B9FH 
o008 
4473 
8627 
8030 


4685 
4672 
8810 
4129 
8020 
4076 
4280 
4683 
4670 
4736 
3736 
4670 
4329 
4329 
4329 
3723 
8861 
4276 
B87} 
4685 
4889 
4645 
4498 
9000 
4363 
4657 
4510 
4510 
1000 
4963 
4666 
4275 
4477 
4505 
#106 
4710 
4264 
HHHH 
4876 
9000 
4081 
4081 
4335 
4689 
4264 
4118 
4071 
4525 
A810 
4030 


PRCM1 


MQ002 


MQ000 
MO003 


MOQ0O05 
MQ004 
MOO001 


PROCC 


aci 


Ci 


&C2 


STA 
LOX 
LOL 
CLL 
JMP2 
LDA 
ERSA 
TEGO 
LOA 
LOL 
LOL. 
CLA 
LDA 
LDA 
LDA 
LOL 
LOL 
STA 
LOL 
STA 
LOA 
ERSA 
ADD 
CON 
LDA 
LOLA 
TEO 
LDA 
CON 
CLX 
SHR 
ADD 
STA 
LOLA 
TES 
LDA 
ERS 
CON 
ADD 
CON 
LOL 
LOL. 
LDA 
ERSA 
ADD 


LIRS 
LOX 


LOL 
JMP2 


C 
2F 


40000 
oF 
00020 
MOO0O0 1 
ALoc 
if 

iF 

2F 
OPTIM 
OPTIM 
OPTIM 


2F 
mLOoc 


MLEV 
oP 
OOHOO 


99700 
MLOC 
00000 


90000 


0200 
op 


oP 
99800 
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00000 


00100 
ALEV 
MLEV 


oP 
00000 
RL 
OpTIM 

0004 
aF 


c9000 
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FIND 


&Ca@ 
00000 
3F 


eaF 
OHHH 
~C2 
90006 
3F 

aF 


OO0KH 
eF 


FIND* 


P7e FARG*#+ DEFN®, 


P&e ADJUST M LEVEL 


Poe CALCULATE C OPTIM 
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1263 4734 888 
1284 4738 888 
1285 $34) 886 
1256 4341 888 
1287 4795 886 
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1290 4356 986 
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1292 4713 886 
1295 4117 856 
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1295 4174 886 
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1330 43537 388 77) «=8337 4390 ATL 


1303 4748 888 0 87 4701 4181 TGR $2 
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1306 4367 888 0 29 B670 4574 “NOW LOA1 ROOO1 
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1308 4578 38688 0 75 O00A 4783 SUB RA 
1309 4783 888 9 77 #4783 4586 ATL 
1320 4586 3868 0 29 8670 4541 LDAl ROOO! 
1321 4341 888 0 35 4393 4346 ERSA 66666 66066 
ae 1312 4346 888 0 Cl 4346 4349 MTX 
Fuze 1313 4349 8868 070 4351 4704 ADDA 33333 33333 
2G i314 4704 3888 0 35 ©COOR 4508 ERS AL 
B63s 1315 4808 888 0 77 4S0B 456) ATL 
bz Ho 1316 4561 888 0 29 8669 4166 LDAL ROOOD 
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Fee2 1321 4732 888 0 0G 0002 4786 IIRL 0002 
Zu 69 1322 4786 3888 070 4368 4367 ADD ~NO# 
ae 1323 4388 888 9 99 9990 9000 CON 99999 00000 
Ba%0 152404368 «6B8B 0 00 4534 «4534 &NO# JMP 86 
reg 1325s 4182, -88B 0 30 «(4184 «4337 ! LOLA agiia aad 
829 1326 4137 BBB 0 20 0008 4741 SUF RL 
o3e8 1327 4741 888 9 85 OO0OA 4770 MUL RA 
nexe 1328 4770 388 9 35 4774 4176 ERS 00000 00004 
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2156 
Eee 
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O41) 
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BBB 
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B36 
886 
58B 
B86 


OOCOCGOCGGROMOCOCGCOCON ONMOCACOCHRGOCCaAcOAOao agooccoocccoococcos |. 


B676 
0989 
68FH 
4397 
4112 
00090 
0000 
0000 
0000 
0000 
8866 
8888 
Saas 
6868 
8888 


4146 
03550 
0555 
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Q591 
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0000 
Os93 


8669 
4382 
8792 
4397 
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adda 
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LOL. 
LOx 
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LOA 
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TIR4 
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LDA 
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TCO4 
A00a 
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ADDA 
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LOL 
LOA 
ERSA 
LOLA 
TES 
LDA 
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A. BEGINNING OF ASSEMBLY 
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CLEAR SYMBOL TAGLE IN MULTIPLE ASSEMBLY. 
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3399 
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FING ANO RESERVE BEST LOCATION (FaRB®) 

THIS SUBROUTINE IS USED To CHOOSE LOCATIONS 
FOR A C ADDRESSES OF INSTRUCTIONS. 
THE SAREE SPONGE HG H-FIELD IS INTERPRETED ANO 

THE CHOICE 15 MADE ON THIS BASIS. 

EXAMINE H=FIELO 

If IT SPECIFIES C(CORE) GO TO Fu, 

IF IT SPECIFIES Di DRUM) OR IS BLANKe 

GO TO F3 WITH RBS SET TO Oc 

IF If SPECIFIES HIHIGN SPEED BANDS) > 

GO TO F3 WITH RBE FQUAL TO 2e 

THREE NUMERICS OR +NN MEANS A HANOD=PICKEO 
LEVEL OR A CHANGE IN LEVEL ON THE DRUMeTO Fae 
TWO NUMERICS pale A HANOPICKEG HIGH SPEED 
LEVELe GO TO 

ANY OTHER MEANS "THE H=-FIELO I5 IN ERROR. 

60 To F3 AND TREAT AS BLANKe 

USE HANO LEVEL 

THE H-FIELO SPECIFIES A HAND PICKEO LEVEL. 
THIS SUPERCEDES THE LEVEL CALCULATED 

BY QADAADe ALTHOUGH IT WILL SE CHECKED 
LATER BY THE AJST* ROUTINE, 

ADJUST FOR PAIRS 

IF RB2 CONTAINS 8 AT THIS POINT We HAVE 

A PAIR ADORESSe AND RB4 IS INCREASED BY le 
THE CALCULATED LEVEL IS ADUUSTED 1 IF IT 75 
A MINUS=PAIR ADDRESS. RBS IS NOW EQUAL TOs 
Os LOOK ON ORUM 

£2 LOOK FOR PAIR ON ORUM 

28 LOOK FOR HIGH SPEFO 

3: LOOK FOR PAIR ADDRESS IN HIGH SPEED AREA 
THE SETTING OF RA6 IS USED TO CONTROL THE 
APPROPRIATE OPERATIONS GELOW, GO TO Fa, 
ROOM IN CORE 

If R82 CONTAINS 8 WE HAVE A PAIR AODRESS AND 
MUST RESERVE 2 LOCATIONS, OTHERWISE } LoCcA~ 
TION IN COREe IF THERE 1S NO ROOM LéFT IN 
THE 8000-8999 AREA, A SEMICOLON ERROR 
INDICATION IS GIVEN AND WE TRY HIGH SPEED 
ACCESS BY GOING TO F3. 

ASSIGN CORE ADDR. 

CALCULATE THE EQUIVALENT OF THIS ADDRESS 
AND THE ADDRESS ONE LESS IN CASE OF A PAIR 
ADORESSe EXIT. 

INITIALIZE 

CALCULATE THE STARTING DRUM LEVEL+ AND ALSO 
MAKE AN EXTRA COPY OF LEVEL 199 AS LEVEL <1 
IN CASE OF PaIR ADDRESS PROCESSINGe 

TRY LEVEL 

IF a ORUM ADDRESS SATISFYING ALL THE 
REQUIREMENTS INDICATED BY RBG EXISTS ON THIS 
LEVELe GO TO F9.e 

ORUM £XHAUSTED 

If THE LEVEL WAS HANO CALCULATED, A SEMICOLON 
ERROR IS INDICATED THE FIRST TIME STEP Fa 
1S EXECUTED. 

IF we HAVE GONE ALL THE WAY AROQUNO THE ORUMe 
A SEMICOLON ERROR 1S GIVEN AND THE ADDRESS 
0000 18 ASSIGNED. TO Fil. 


IF WE HAVE EXHAUSTED THE HIGH SPEED BANDS,» 
A SEMICOLON ERROR 1S GIVEN AND We TRY THE 
WHOLE DRUMe GOING TO F6e 
OTHERWISE WE STEP TO THE NEAT ORUM LEVEL 
AND RETURN TO F7. 

F9e CALCULATE ADDRESS 
We TRY TO FIGURE OUT WHAT ORUM ADDRESS we 
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7 __0360 | __! MAVE FOUNDs PICKING THE SMALLEST ACCEPTABLE 
e - ae 0s we 8 ay OO ee sayy enn OPO OO cap Ct oy OO Pee A ODRESS ON TH {$s LEVEL, e A s I NGLE WORD OF 
8 FizeFINISH UP Seem eee ede sects ag teeetedseebesebcteovsece EXIT GO BITS IS KEPT FOR EACH ORUM LEVEL, 


e 0D AS OR A Os eas en Gh in OE EE eg OE gy, OO oy ca ep MD OE nm an es ae e 


CORRESPONDING TO BaNOS OO THRU 78, THE S-BITS 
COVER BANDS OO THRU 18+ S4eAITS 20 THRU 36 
AND $0 ONe 

FLOeRESERVE ADDRESS, 
FOR A PAIR ADORESS THE ADORESS IN THIS SANO 
ON TWO ADJACENT LEVELS IS RESERVED,» 
OTHERWISE A SINGLE ADDRESS IS RESERVED: BY 
TURNING ITS BIT OFF IN THE TABLE. AFTER THE 
OPERATIONe LEVELS «1 ANDO 199 ARE COMBINED 
AS LEVEL 199. 

FilleFINISH UP 
CALCULATE THE ADDRESS ADJACENT To THE ONE 
FOUND IN CASE OF a POSSISLE MINUS<PaIR 
ADDRESS: AND Exrt. 

CODING DETAILS! 
INDEX REGISTERS : @ AND 3 ARE NOT CHANGED SY 
FARS#. ON INPUT THe H FIELO IS SPECIFIED 
BY RBse THE CALCULATED BEST DRUM LEVEL IS IN 
Rae AND THE EXIT 18 IN RL. THE OUTPUT 
LOCATION FOUND IS IN RA AND AN ADJACENT 
LOCATION IS STORED IN A SPECIAL TAGLE. 
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MASTER ADDRESS CALCULATOR (FIND#) 
THIS SUSROUTINE I5 GIVEN THE CONTENTS OF 
THE SYMBOLIC AeMe OR C FIELD OF THE CARD AND 
ANALYZES IT. THERE ARE TWO EXITSe ACCORDING 
TO WHETHER THE aDDRESS IS DEFINED OR NOT. 
WHAT KIND 

IF BLANK GO TO Q2-e 

IF SELF e GO TO Q3, 

If FOUR RIGHTHAND PARTS ARE NUMERICs TO Que 
Ir Une ie CHARACTER IS BLANK sHOWEVERs 
Go To @ 

IF LOCAL “FORWARD ADDRESS, TO Q?, 

IF LOCAL BACKWARD aDORESS. TO Qa, 

IF LOCAL PLAIN ADDRESS Ne TO G9. 

TF PAIR ADDRESS «SET RB2 TO 5 AND GO TO Q1d6 


IN CONSIDERATION OF THE RECEIPT OF THIS DOCUMENT. THE RECIPIENT AGREES NOT TO 


IF THe SYMBOL FAILS TO PASS THE ABOVE AND 
0419 : .* : : tet ‘ 2 $ BEGINS WITH A NUMERIC?e GO TO Q6e0 
(eer mem nat ommmammuwmmmww) EDL Sseeeeceseetooetesetetetesetesetese UNDEF OTHERWISE IT Is SYMBOLIC? wE SET RBZ TO 4 
( G2. BLANKSZERO -  ) 3 ¢ a | : 8 t AND GO TO @10. 


(ee mmmnMet mm twrmmmmmnm) NEOs etesescetionateselteteoteseteoesteee’d EF 


Q2-e BLANK sZERO 


DEFINED sDORESS WHICH IS SENT TO DEF. 
Q9e It(N) 8ZERO 
IF THe FORWARD LOCAL TABLE ENTRY FOR N IS 
ZERQ THIS AOORESS 3S UNOEFINEDe GO TO UNDEF « 
FLSE IT IS DEFINED AND WE TRANSFER IT TO THE 
BaCcKWaRD LOCAL TABLE AND EXIT To DEF. 
IN E€ITHER CASE RESET FORWARD LOCAL ENTRY Oc 
G1lOe SRCHe 
SEARCH FOR THE ITEM IN THE SYMBOL TABLE. 
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cn a cn cee 0 ee or 0 cas On oy aes emp WE eae ms wn ew cn” } NEGte CHEpeaeeoetFG eg HGeeeHFG gg ateveLeseevs as 


DEF 


. : : s 2 3 t 8 2 IF "@LANK® IS ZERO, THE BLANK ADORESS 1s 
: Ol eececceetetevssesetensesvetas (9 43: 3 8 t t UNDEFINEDs ANDO WE GO TO UNDEF > 
0423 $ - .§ 2 8 $ $ $ ELSE TO OEF. 

© eae a Se ae aE eo Se So ar we a ree a ine SHG t a a | EY $ ] Q3~<« "A LOCATION 

4 Q3e "At LOCATION Teweseeergsecestigecceeseteteatesctecctese? OEF THE * 1S OEFINED AS THE VALUE OF A LOCATION, 

0 00 ee On an cae cane ea Oe Oe es ay a aay aD on OD t | g t 2 | a T Fr IT APPEARS IN Ae OR IN CERTA IN CONTROL ors 

t a ar | t ? $ IY 18 THE VALUE OF THE PRECEDING A LOCATION. 
: O(essanes cewsineaww weasiaws towaeeuvterto t g § TO OFF, 
0426 t - ‘ 13 * ¢ 8 Q4e CHANGE TO ROOOO. 

Cte ee en ee eee ee ee t : t : : 3 CHANGE THE REG! ONAL AODRESS To ROCCO ANO SET 
Mid 4 O4- CHANGE TO ROQOOCO, - Beonmereteeaseeet ave eeeeteteotoonteseteooey RB2 To ZERO, WE GO THEN To LOOK THIS uP 
ge Seger ae ee ae t t1 en IN THE SYMBOL TABLE+ AT STEP Q10, 
pee : t 8 t t t Q5-e PROCESS ABS ADDR, 
ae: Oleeteccceteteccvneateecccseigneseneteateotosetes(O 8 IF aNy PART OF THE AODRESsS I§ BLANK OR 
a Oe 0458 $ t 8 3 t HaS ZONES OF 2 OR 32 GO TO Ose OTHERWISE 
: ag (cae coh 2 0 a og ey a a HD BAD Seveeececeticaecceeetey t t USE THE ZONES To PR OOUCE UNOTGITS FOR ABCFGH e 
26 ( Q5e PROCESS agsS ADDR. ) t st g t AND SEND THE RESULTING ADDRESS TO OEF, 
Ree (0 co co 0 oe ca ee as es HH caw en ew ey HH ) OKs Cato esecersevetateseteoPoseteoveeseg! DEF Abe ERROR 
aa s $ t $ SET UP ERROR FLAG FOR CURRENT FIELD 
BM O(evecccestatevccseetneseseeiavcsesetl( $ t AND SET THE ADDRESS TO ZERG. TO DEF. 
¥ 2g 0842 ' , n 3 ' : Q7e T(N) #ZERO 
xz Oe ae ce cee th en OO EE Cae He OM aan cay ea EO ep tae yy tin Dea 4 t 2 2 ¢ Ife THE FORWARD LOCAL TABLE ENTRY FOR N IS | 
Bees °S Q66 ERROR Feeceseesevacenetovccceeteterovetesesoest EF ZERO 1T IS UNDEFINEDeWE GO TO UNDEF, ELSE IT 
ae 0 ee ey Dew ew on en a Ht ee ae SP en eee wy OS UD hee . : 3 t t 1S MNEFINED AND OEF. 
bz o : 2 3 ' : Q8e JIN) tZERO 
859 Clecrcccceretoccsesetesevsel(S q t IF THE BACKWARD LOCAL TABLE ENTRY FOR N IS 
a O452 : : , : : ZERO IT IS UNDEFINED AND WE GO TO G6 SINCE 
FR ( Herm nneetatatenetewemenas) EQt sevecenneetaenceeeigtetsnnctscecses SUNDEF THIS SHOULON?’T HAPPEN. ELSE IT IS A 
Fo 
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IF FOUND?GO To DEF ,ADJUSTING FOR REGIONAL 
ADORESS IF NECESSARY. IF NOT FOUNDe WE GO 
TO JUNOEF. 

CODING DETAILS? 
INPUY TO FINO*® IS DEF IN RX AND UNDEF IN RL. 
RB3 CONTAINS THE FIELO TO BE EXAMINED, 
AT EXIT DEFse RA CONTAINS THE DEFINED 
EQUIVALENT IN ITS ¢ ADDRESS POSITION: 
AT EXIT UNDEFe RB2 CONTAINS INFORMATION 
ABOUT THE TYE oF ADDRESS AS FOLLOWS?! 
O83: REGIONAL 
£* LOCAL FORWARD N IS IN RBS 
2% SLANK 
3 LOCAL PLAIN N IS IN RBS 
Js SYMBOLIC SPOT IN SYMBOL TABLE [5 RB1 
Kt PAIR ADORESS RBS 18S O FOR Se 1 FOR mo 
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De O€FINE ADORESS (CEFN®) 
THIS SUBROUTINE IS USED AFTER FINO® HAS 
DETERMINED AN ADORESS IS UNDEFINED. IF THIS 
1S NOT AN ERROR CONDITION, SOME WaY OF 
CALCULATING AN ADORESS, USUALLY FARB®, IS 
USED ANO THEN THIS ROUTINE DEFN* TAKES OVER. 

Ole WHAT TYPE 
If THe ADORESS TO BE DEFINED 18 REGIONAL, 
BO TO Dae 
IF LOCAL FORWAROeENTER IN 1 TABLE AND EXITe 
IF GLANKe ENTER IN *BLANK® ANO EXIT. 
IF LOCAL PLAINe ENTER IN UJ TABLE AND EXIT. 
IF SYMBOLICe ENTER IN EQUIVALENTS TABLE: EAIT 

TF PAIR ADDRESSs GO TO O35. 

Dée CALCULATE BASE 
REGIONAL ADDRESSES ARE DEFINED ONLY BY 
CONTROL OPS LIKE BLRe THE DEFINING ADDRESS 
MINUS THE INCREMENTe THE ADDRESS CORRESPON= 
DING TO ROOOOr 15 STORED IN THE 
FQUIVALENTS TABLE. EXITe 

DS STORE TWO. 
THE MEFINEO ADDRESS IS STORED IN THE sYMSOL 
Ta@ie. THEN a IS CHANGED To < OR VICE VERSA 
ANDO THAT SYMBOL PLUS ITS EQUIVALENT ARE ALSO 
STORED AWAY. THE ASSUMPTION IS MADE THaT 
FaRa« WAS USED TO CALCULATE THE ADORESSES, 

EXIT. 

CODING DETAIL? 
THE &xIT 1S INPUT IN RL AND THE CALCULATED 
ADDRESS IN RA. OTHER INPUTS aCTUALLY USED 
ARE 282 TO TELL THE TYFE+ ANO RSi AND RAS TO 
GIVE EXTRA INFORMATION AS SUPPLIEO BY THE 
FINO*® SUBROUTINE. AT EXITe RA CONTAINS THE 
NEFINED EQUIVALENT, 
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AJST#® SUBROUTINE. 
THIS SUBROUTINE IS PARTY OF THE WAY GADAAOD 
FINOS LATENCY. AJST*® IS USED ON M AND C 
ADDRESSES. FIRST AN OPTIMUM LEVEL 
*OPTIM?® IS CALCULATED BY QADAAD?: AJST* USES 
THIS TO FIND THE CURRENT LEVEL» GIVEN THE 
ACTUAL M OR C ADDRESS. 
WHAT TYPE ADORESS 

IF THE ASSIGNED ADORESS D HAS ANY UNDIGITS 
IT 1S ASSUMED TO BE IMMEDIATE ACCESS ANDO 
*OPTIM® 1S THE ANSWER. EXITe 

IF THE ASSIGNED ADORESS op IS ON THE HIGH= 
SPEED BANOSe GO TO A2. 
TF THE ASSIGNED ADDRESS D IS ON THE STANDARD 
PaRT oF THE ORUM: 5 IS THE ANSWER. GO TO Ade 
FIGURE ORUM ROLL 
THE ANSWER IS O-OPTIM MODULO 50> 
ADDED TO OPTIM,. 
CHECK BAD TIMINGe 
IF D COMPARED TO OPTIM INOICATES aA WAIT OF 
48 OR 49 ON HSB OR OF 198 OR 199 ON REST OF 
DRUM, THE ERROR FLAG ~ IS PUT ON THE LISTINGe 


CODING DETAILS! 


INPUT IS THE ASSIGNED ADORESS IN RA AND THE 
EXIT IN Rie OUTPUT IN RA IS SOME LOCATION 
Pouree APPROPRIATE ORUM LEVEL, 

EXIT. 
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° 
19) 
E * 9. OUTPUT SUSROUTINE. 
o < : * THIS ROUTINE IS USED TO TRANSMIT AN ASSEMBLED 
<i : * INSTRUCTION TO THE OUTPUT TaPE, 
= Oo7k 4 * Ole TRANSFER 
t 2 0 8 re 8 lt es ee OE eh ee * THE Loc ATION [IS IN THE FORM RRROSGAAAA WHERE 
uz " glee ee 8 * RRR aARE RELOCATION DIGITS COPIED FROM THE 
£2 e OE Oe ee i oe NY Pee co eT * CARD, S$ IS THE ASSEMBLED SIGN: AND AAAA IS 
a $ * THE ASSEMBLED LOCATION. MOVE THE LOCATION 
a i] * AND THE ASSEMBLED INSTRUCTION INTO THE 
ede t * a aed port ens 
Se et ee ee eee * e U Fe R U 
( OZ BUFFER FULL DP NOG coecenentetgeeeesetanstosecesoseege EXIT » Ie THE SURFER Does NOT HAVE $0 INSTRUCTIONS: 
ca ce et ene oO nh as oy ca ay WO Ee Os en OO or * ae le 
Yes: ¢ * 03. WRITE TAPE 
' * WRITE THE BUFFER OUT ON THE OUTPUT TAPE ANO 

e ccs e : e LEAR THE eure ‘ ae : . = i : 

8 O36 WRITE TAPE Feeveeres ge eeeeeO een seseOrestaeseeseccess EXIT ; 

OF OO Oe ae wae ne OF ay OOO a nD ay aay as MO Cn ce oy DS HOLD Ht 
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; IN CONSIDERATION OF THE RECEIPT OF THIS DOCUMENT, THE RECIPIENT AGREES NOT TO 


ie} 
f * € EDIT INPUT CARD. 
oa t * THIS 1S WHERE THE PROCESSING OF EACH CARD 
ZT Oleesecceetertecsecesetee(O * STARTS. THE PURPOSE IS TO TAKE THE INFOR} 
eo 0616 t ~ ¢ & MATION FROM THE INPUT TAPE ANO TRANSFER IT 
z O ( ec nas a nO 0 a a 0 ew g * TO THE PRINTER AREA REAOY TO BE PRINTED AND 
bs El. CHECK LINE NOo - ?) BADteeses)O * ALSO EDIT IT INTO a FORM MORE DIGESTIBLE FOR 
ce (0 ee ae ee cn 0 a cn 7 sO as ao cy Oe AO can 8 op HY ay HH * ASSEMBLY PROCESSINGe 
Q OK? 2 * THE CAROS ARE REPRESENTED AS 20 WORDS ON 
2 $ * TAPE. A ZONE 80RD IMMEDIATELY PRECEDING ITS 
0623 $ ‘th : * CORRESPONDING NUMERIC. 
oe ae a a ag * Ovl LINE NUMBER 
$ Eze TRANSFER ~+ 8 * 2¢3 AAR AH AS 1111123330 
CRN ee ee ae 9 * eS MMR MH AS 1111123330 
$ * 6e7 © CR CH AS 1111125330 
§ * 899 OP IR AS 1112000000 
0642 t by * 10-19 REMARKS AS O11 lLilece 
9S eH OE O MS gg ww AME HO Mey e ste @i e c HECK L I NE NO e 
3 E3o SEPARATE OFF Re He 8 r IF THE LINE NUM@ER IS NOT EXACTLY 1 HIGHER 
$ + THEN RETURN TO Ele 
8 * Ede TRANSFER 
06638 t a ™ MOVE THe LEFT HALF OF THE CARO TO THE PRINTER 
0 Oe 0 cea tae ca ee HOS Oh a Oe cay cay HH ES aon OD omy MO Ene * AREA EDITING It SLIGHTLY FOR READABILITY. 
8 E4.s. MOVE COMMENTS -~ * ESe SEPARATE OFF Ry He 
9 0 0 Cae ca 0 an an a ay gy tan as Hn ag em she ED I T THE A~mARwAH Mu MR om MH e C=aCRoCH ¢ CHANG ING 
| 3 * THE SYMBOLIC PORTION TO A SINGLE WORD WITH 
$ * THE ZONES AT THE LEFTs 22Z2Z2Z2NNNNN?3 
0690 $ ae * ACCUMULATE TME & DIGITSe AND PUT THE 
ne ee es ee meee aa nom ten eaee eee g % H@FIELD INTO THE FORM COZZZOONNN. 
3 E5- CONSTRUCT CONSTANTS * E¥e MOVE COMMENTS 
a OO ee em Cm cm ty ca ca i eS oy ad Dy * MOVE THE REMARKS FIELD INTO REGION Re 
ori : *  €S.e CONSTRUCT CONSTANTS 
<Eg t " PUT TOGETHER THE M AND C FIELOS INTO 
ofS 0704 : * POSITIVE CONSTANTS MC+MCZ+AND MCN AS THE 
Zz tio Ce eee ene ee ne ee ARE * CON NUM ZON CONTROL OPS ARE SUPPOSED TO 00+ 
boy $ E6s. EDIT OP Code. 8 * 60 EXIT OF CODE. 
tetera ete tae * PUT THE OPERATION CODE FIELD INTO THE FORM 
pee : * BEZZZABNNNe THIS FORM IS USED BECAUSE IT 
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PROCESS A ADDRESS. 

THIS ROUTINE IS USED FOR INSTRUCTIONS AND 
ALSO FOR CONTROL OPS CON*NUMe AND ZONe 

CHECK BLANK A 

IF A IS NOT SLANK BUT THE PRECEDING INSTRUCH 

TION HAD A BLANK ADDRESS: GIVE aN ERROR 
INDICATION. 

FINO* Ae 

FIND A (ROUTINE @), IF IT IS ALREADY DEFINED> 

GO TO Lue 

FARS# eDEFN*. 

A 15 aN UNDEFINED aOORESS,. IF IT IS REGIONAL, 

LOCAL FORWARDe OR BLANK THIS IS AN ERROR 

CONDITION AND A NEw LOCATION IS ASSEMBLEO. 

OTHERWISE USE THE LINE NUMBER AS RANDOM DRUM 

LEVEL AND GO THRU FARB*® (ROUTINE F) AND 

OEFNS (ROUTINE Ode 

ADJUST A LEVEL. 

If THE NEW A ADORESS MATCHES THE LAST M OR C 

ADDRESS» USE THEIR LEVELs EXCEPT ON M adorESS 

MATCH WHERE THE C ADORESS HAD UNDIGITS, IN 

THE LATTER CASE THe PREVIOUS C LEVEL IS USED. 

OTHERWISE USE THE «a ADDRESS AS THE DRUM LEVEL 

ZERO TO BLANKe 

THE LOCATION "BLANK IS SEY TO ZERO SINCE AT 
I ld BLANK ADDRESSES ARE UNDEFINED, 
EXIT. 
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P, PROCESSING OF INSTRUCTIONS 

Pile PROCESS A 
EXECUTE THE L ROUTINE. 

P2. CALCULATE M OPTIM 
IF THE IR FIELO IS NON BLANK AND NOT A 
LITERAL» ADO 1 TO A LEVEL FOR INDEX REGISTER 
MODIFICATION TIME. THEN ADD THE APPROPRIATE 
AMOUNT TO GET THE OPTIMUM m ADDRESS LEVEL? 
AS OETERMINED SY THE OPERATION CODE. 
PUT THIS IN *OPTIMe. 

P30 LITERAL | 
If THE IR FIELD CONTAINS A NUMBER SIGN GO TO 

e 

PU. FIGURE INDEXING 
ADJUST BIT 4 OF THE OPERATION CODE AND 
THE SIGN OF THE RESULT TO GIVE THE INDEX 
REGISTER MODIFICATION DESIRED, GO TO P46, 

PSe CREATE CONSTANT 
GO THRU FARB* AND aJST# (ROUTINES F ANDO A) 
TO DETERMINE AN ADDRESS ANO ORUM LEVEL FOR 
THE LITERAL CONSTANT. ASSEMA@LE THE POSITIVE 
CONSTANT INTO THIS LOCATIONe (ROUTINE 0) 
TRANSFERRING THE MR DIGIT INTO AN AR DIGIT 
FOR THE CONSTANT. 
MARK THE ¢C FIELO BLANK ANO GO TO Po, 

Poe FINDO® Me 
FINO M(ROUTINE Q). IF IT 1S ALREADY DEF INEDe 
GO TO P8. 

P7. FARG@s: DEFN*, 
M 1S AN UNDEFINED ADORESS, IF IT 1S 
REGIONAL OR LOC4L PLAIN THIS IS AN ERROR 
CONDITION ANO ZERO 1S ASSEMBLED. IF IT 15 
BLANK AND IF THE OP-CODE 1S ONE THAT IGNORES 
Me » IS ASSEMBLED, 
OTHERWISE FARB® AND OEFN® (ROUTINES F.0) ARE 
USED TO DEFINE M ON THE BASIS OF OPTIM aNp 
THE MH-FIELD, 


THE ORUM LEVEL aT THIS POINT 1S NOW 
DETERMINED BY SUBROUTIAE a, 

P9e CALCULATE C OPTIM 
WE BEGIN TO WORK ON THE C ADORESS NOW, 
THE OP CODE FOUND IN THE SYMBOL TABLE IS IN A 
SPECIAL FORMAT OPTSOOMMCC, 
HERE OP IS THE TWO DIGIT OPERATION CODE. 
S$ 1S 1 FOR IGNORE Co 2 FOR IGNORE M, 
MM aNg CC ARE INCREMENTS FOR CETERMINING 
LATENCY. JT IS THE TYPE OF LATENCY RULE 
REQUIRED: AS FOLLOWS! 
O: ¢ IS MMCC FIXED LEVEL. 
4s ¢ 1S MMCE FIXEO LEVEL. 
2% ¢C IS ACC 
38 SHIFT COMMANDS ¢ IS A*#N4CC, 
WE NOW CALCULATE OPTIM FOR C+ ACCORDING TO 
THE RULE GIVEN BY Te 

PIOsFIND* C, 
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Xi 
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*e&nee eee ee ket FRESH HREKRHERKRE EERE RRR EEE HEE HHH HE HG 


FIND C(ROUTINE Q), IF IT IS ALREADY DEFINEDs 
GO TO Pl2- 
PLLleFARG&DEFN@e 
C 1S AN UNDEFINED ADORESS, IF IT IS 
REGIONAL OR LOCAL PLAIN® THIS IS AN ERROR 
CONDITION AND ZERO IS ASSEMBLEDC. 
If IT IS BLANK AND THE OP~cODE IGNORES Ce 
IT 318 MADE EQUAL TO Me OTHERWISE FARB* AND 
DEFNS® (ROUTINES Fep) ARE ACTIVATED TO DEFINE 
C ON THE BASIS OF OPTIM. 
BLANK ADDRESS HERE MAY BE PUT IN BOOA 
OR BOOF REGION OF CORE. 
PI2eADJUST C LEVEL 
THE ORUM LEVEL aT THIS POINT IS NOW 
DETERMINED SY SUBROUTINE A. 
PL3e SYNTHESIZE 
THE OP» M AND C ARE NOW PUT TOGETHER 
INTO A TEN@DIGIT INSTRUCTIONe 
PLYeASSEMBLE 
USE ROUTINE 0 TO OUTPUT THE ASSEMSLED 
LINE OF CODE, 
PIS.EpIT 
THE ASSEMBLED INSTRUCTION 1S EDITEO AND 
SENT TO THE PRINTER AREA, 
FOR CONTROL OPERATIONS, HOWEVER: THIS PART 
1S SET TO BLANKS, 
Pl6eFLOW CHART 
If THE CONTROL OPERATION FLO 
HAS APPEARED EARLIERe GO TO THE FLOW 
CHARTING ROUTINE Xie 
Pi7e PRINT 
MOVE THE REMARKS To THE PRINTER AREA FROM 
REGION Re TAKE ALL ERROR CONDITIONS THAT 
HAVE SEEN OETECTED ANO PUT THEM ON THe LIST 
ING. THERE IS ROOM FOR AT MOST 5 ERRORS. 
INTERROGATE THE PAGE@LINE COUNTER TO SEE IF 
A SKIP TO NEXT PAGE IS NECESSARY, 
FINALLY PRINT THE LINEe AND GET READY FOR 
THE NEXT LINE? GOING TO El, 


ie 
Pland Unwac. 
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BLReesesecteceeee dO 
CORS ce ceccctoseeeesteenees dO 
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HHH Se concatecetevatevesesetecncceveteees PIS 


FOR SLAtBLR GO TO Cie 

FoR coR GO TO Cu. 

FOR £QU GO TO C5.e 

FOR HHHe SET M4 INTO HTAG ANDO GO TO P15, 
FoR oFF GO TO Cé 

FOR FLO» SET FLOWCHARTING TAG ON AND GO TO 


¢ Sar iNos<) = C. CONTROL OPS, 

; : es fle BRAN“H TO OP 

z ' = IF O7 IS BLANKe GO To PLS. 

5 1046 ' FOR CON NUM¢ZONCALFe GO TO C2. 
fa) 
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( Cie BRANCH To OP 


a ( Ce eae HO HD Cae le HE aw an HO as cy ans MD OO a ee ee Se ww ) 


Mire OFF Se ceccetee)O | 8 ‘ P1iS ALSO. 
FLO Le ccccectceetetateteengatevseseveteses§ PIS FOR PATsPRINT THE AVAILABILITY TABLE AND 
PATS ccecceteceigcstoandsoetocccccetecoes Et GO TO Ele 
TYPE cmc astccetsoctanceccctocesscctonse FLS FOR TYP, HALT ANO INSERT RA IN TYPE OF PROG, 
ERRieeesectaceteeatecescccteccavsesteces§ PIS GO TO PiSe 
END Pe ceeestecetgwetecedsseteccvcestsves Zi IF AN ERROR OCCURS WHILE PROCESSING ONE OF 
t THE ABOVEs NO aaa ACTION TAKES PLACE 
Oleccenccetetesceservens(f t 3 8 t AND WE GO TO P15 
1o71 | . $ r] t ' FOR ENDe GO TO THE ENDING ROUTINE Zle 
ce ae a 0 a aay ag PO OO oy Og 8 : | : C2e PROCESS A 


. C2e PROCESS A USE ROUTINE L TO GET THE A ADDRESS» 


Peeoceceracccceetereseeestecatocconseterves P14 


t t 8 : SIGN AND GO TO P14 TO ASSEMBLE THE INSTRUC@ 
Olesen esetatesseesetengonvetselG t t TIONe 
108s , g ” t ms g 3 C3e UPDaTE AVAIL TABLE 
0 ces cay 0S en a a cas MD Sa OO any OO eS H 8 g ~FIELL OR INCREMENT. IF BLANK 
38 CSe UPDATE AVAIL TABLE teoeccccetecccsteletaesteheneeteseneeeV Nee Ts Clan USE ca HOD fos. Sinoe sw: j 
© OF re 0 a en ae a PO as OO oO ap ay oy Meee ene oes a t t t IF UNDEFINED, ERROR. IF C IS BLANKe SET 
3 of 8 C EQUalL TO Me ELSE FIND® C, IF UNDEFINED > 
Oleevrecasereteeseesebeacseteigtaestetes(O ' ERROR. FINO THE STARTING PLACE IN THE 
1177 ] : ‘ AVAILABILITY TABLE, ANO KEEP RESERVING OR 


t C4e RESERVE Core Poeenee eh eee sess tae veseseSeegescoessenY 


UNTIL DONEe GO TO CSe 


t $ Ip M tS UNDEFINED, OR THERE ISNT ENOUGH ROOM 
O(cecevesetetesseeseteeesceetanaseeeetenntoveses (fi) IN CORE THIS IS AN ERRORe OTHERWISE RESERVE 
1192 : i THE SPACE IN CORE, AND GO TO C4, 
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8 CSe DEFINE ADDRESS 


* | 
Sem eeee Oe eese ets gee sesOPngedeoennseseteos P1S 


C3e DEFINE ADORESS 
FIND A (ROUTINE Q). IF DEFINED: OR IF aA 
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8 @ OF ee em ae OO 90 en 0 ee aan gy Me ewe an Dh Ml +} PAIR ADDRESS + THE A FIELO Is IN ERROR: ELSE 
aes t Tf NONBLANK OEFINE IT (ROUTINE 3), 

ESzo | CleosecccvntatencnvsstegeecesiO 60 TO P18, 

ores 1206 ' Co. ON OFF 

SRO? Rema tee ynaenee ns eaten See ee ate eee Te M ADDRESS MATCHES THE TYPE GF PROGRAM: THE 
{205 Y C6, ON OFF Saceceeeteeceet eV ove set stneeSeseresesenss P15 MASTER SWITCH IS TURNEO ON OR CFF, GO To P15, 
Seg Ce eee ete nae C7e ASSEMSLER OFF 

zoe If FLOWCHARTINGs GO TO El. 

7326 ; OTHERWISE PRINT THE WORD OFF ON THE LISTING» 
EarO i217 RETURNING TO P17. 

aa (ome mem ten mmm mem) FLOSe stare eer eee tees etannetoeesetseetes Ei 

eonO 6 C7. ASSEMBLER OFF ) 

Sewe (emma nw meneame) OFF Eeceeeceneeteteeeeetnceseccenvecesees PI? 
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< (am [Nowe } Xe EXAMINE REMARKS FIELO 

: 8 -- THIS ROUTINE IS ENTERED ON EVERY CARO EXCEPT 
x ’ “ PaT AFTER FLO HAS aPPEARED. 

m 1262 t THE PURPOSE 3S TO SEND INFORMATION TO PASS 3 
= ( Ki. WHAT OK FELD ~ DV @ Seeocegtoeetecasesetegctacesecccseses PI? TRANSMITTED AS A *MADE@UP-MACHINE?® OR MUM 

a. ( men tener ates ap ommemet) COOseerectenteesd0 PSEYUDQCODEs SPECIFICATIONS OF wuUM GIVEN 


TABS eeecectesseaveyv . 
Ke SecvccatenscecsnteosesesdO 
ra KNe teoeccctesteevetoeeesgctovescetO 


OTHReeeovetes}9 3 


InN THE PASS 3 LISTING. 

Xle WHAT OK FIELO 
COLUMNS 32°35 ARE THE OOCUMENTATION KEY OR OK 
FIELD, AND THEY CONTROL THE FLOWCHARTING OPER 
ATION 
IF THE OK FIELO IS BLANKe GO TO X2e 
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° sched A a ’ IF 17 IS Ge @LANK IT OUT ANDO GO TO P17. 
8 A A en we ey a yy say SO Or On a HH HOH AH G IS USED TO PUT REMARKS ON THE ASSEMALY 
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If IY Is CODTe THIS IS THE BEGINNING OF THE 
WORDS CODING DETAILS. TO X3- 
Ie IT IS TABLe THIS IS THE BEGINNING OF THE 
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CD ee op ee oF on OF 


00 08 68 on Of ob 86 Oe OR On 


r 1418 = 8 ry ! WORDS TASLE OF CONTENTSe COMPILE THE OK 
e SES SS MeO SON me nies em aaa 4 r ’ - Fr IELO AS AN O53 oP t N MUM CODE e TH I § SPEC TAL 
3 X30 TRANSFER REMARKS . teeccececcentaetiantereettenotesesevetesee P17 CASE IS EXAMINED By PASS 3, THEN GO TO X3. 


ON a 0 8 a gg 8 gg OF gg, Mn crn te gg Wt Dey e g  f 8 % 


t 8 8 a 
Oleacevcreret arenes ebeeet ete ba te tedeteseteneese(O 


TF IT 15 THE FORM Ke THIS INDICATES A NEW 
SECTION WITH KEY K,. GO TO X6. 
IF IT IS OF THE FORM KN. OR KNN, IT IS A NEW 


ec ieee ; + ot ' SUBSECTION NAME» CHECK THAT THEY ARE NUM= 
: Bee eee ae Ss BERED SEQUENTIALLY AND IF NO ERROR GO TO Xue 
3 X4e COMPILE 0; OP Peereceesases eee sat eeetdiosetesevcsenseses Pi? ANYTHING ELSE IS A CONDITION NAME, TO xSe 


FO 8 cn 8 an an tn gy Hi 8 ea ees G8 Mo 


° t 8 8 
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XZe SCAN FOR # 
LOOK THROUGH ALL REMARKS FOR A NUMBER SIGNe 
GATHER TOGETHER THE SHARACTERS FOLLOWING IT? 
UP UNTIL THE NEXT CHARACTER WITH UNDIGITS. 
THE PRINTING CHARACTERS + AND / ARE NOT 
NELIMITERSe THE OTHERS ARE.) THIS FORMS THE 
BRANCH WORD. IF NO CONDITION PRECEDED. 
COMPILE AN 09 OP. IF THE BRANCH WORD REFERS 
To THIS CHARTs PUT M AND C INTO THE LAST 
COMPILES INSTRUCTIONe PUT A RECORD FOR THIS 
ENTRY ANO N IN THE STOP TAGLE AS THE LAST 
BRANCH TO Me OTHERWISE. COMPILE THE BRANCH 
WORD INTO THE MUM CODE, 

X3e TRANSFER REMARKS 
If THE REMARKS AREN*T ALL BLANKe COPY THEM 


Oleeeoecr ote esc essetecseetOHeteseseteg | 
14386 | 


9 OF 0 op oe on OE a ay gs MO ae eg s 


3 XGe FINISH PREV SECTION 8 


Oh 0 OO a Og, cn ee OO ent gg MH OD e 


1492 t ONTO THE COMMENTS TAPE 7. GO TO Pi? UNLESS 
0 0 ae cae en as HP OO ae ean ge, eae NE Oe eH OD g OK F I Flo WAS Xe IN WH ] CH CASE We G0 To 
8 X7e INITIALIZE Peoe eee eee eeeteF eo eeveteteseteseceteestes 17 Ei OrRECTLYe . 
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X4%e COMPILE O1 OP 
COMPILE AN OL OP FOLLOWED BY THE LINE NUMBERs 
AND TRANSFER THE SUBSECTION NAME*s COLUMNS 
32~60, TO THE MUM CODE AREA ANO THE COMMENTS 
TAPE ALSOse TO Pite 

XSe COMPILE CONDITION 
BLANK OUT THE DOK FIELO. IF COLS 36-40 ARE 
BLANK THIS INDICATES A BRANCH TO THE NEXT 
SECTION 80 AN 9a OP TS SELECTED. OTHERWISE 
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THE LAST OF COMPILED IS INCREASEO BY i. 
IF IT WaS AN Ole SELECT OP 06 ELSE SELECT 
OP OS, FINALLY COMPILE THE SELECTED OP 
FOLLOWED AY THE CONDITION NAME. GO TO X2 
TO SCAN THE REST OF THE REMARKS. 

AGe FINISH PREV SECTION 
COMPILE O03 OP AND THEN PUT OUT A 
SENTINEL ON THE COMMENTS TAPE. WRITE THE 
STOP TABLE FOLLOWED BY ALL THE MUM CODE 
ON THE CONTROL TAPE 6 THERE IS ROOM FOR 
ABOUT 1500 LINES OF MUM CODE. 

X7e INITIALIZE 
RECORD THE NEW KEY LETTER SKIP TO THE NEXT 
PAGE ON THE ASSEMBLY LISTING. 
WRITE THIS LINE ON THE COMMENTS TAPE aNd 
RETURN TO Pive 
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BEGINNING OF ASSEMBLY 
CHECK INPUT TAPE 

IF INPUT TAPE ISNT READY+HALT AND RETURN 
TO Bl. 
READ BLOCK 
READ IN FIRST BLOCK INTO INPUT BUFFER 
UNLOAD FIRST TAPE BUFFER AND INITIATE 
READING SECOND SLOCK. THE INPUT TaPE IS 
ALWAYS READING ONE BLOCK AHEAD, THERE MUST 
THEREFORE BE AN EXTRA HASH BLOCK AFTER THE 
ENDING SENTINEL. 
FACH TAPE BLOCK CONTAINS 10 LINES. 
INITIALIZE 
SET LOWER CORE AVAILABLE 
SET BLANK AODRESS UNDEFINEO 
SET FLO MODE OFF 
SET LINE COUNTERS TO ZERO 
SET FORWARD aNOD BACKWARD LOCAL TABLES 
(1 AND J TABLES) To UNDEFINED. 
SET ORUM STATUS $0 THAT OoOO1 TO 4999 
ARE AVAILABLE 
SET HHH BLANK. 
OUTPUT GETS LOADER 
WRITE LOADING ROUTINE ON OUTPUT TAPEs 
NEITHER TAPE Is EVER REWOUND AY THE PROGRAM. 
WE aRE NOW READY To TAKE OFF»+GOING TO £1, 
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ENOING OF ASSEMBLY, 

FIND*s M, 

FINO M, IF UNDEFINED: HALT ANO THE OPERATOR 
1S SUPPOSED TO FILL RA WITH THE RIGHT THINGe 
ASSEMBLE TRANSFER 

ASSEMSLE HLT HHMH MLOC INTO LOCATION ©0108 
WHICH WILL CAUSE THE LOADING TO ‘STOP WITH 
THIS INSTRUCTION’ 

CLEAN OUTPUT BUFFER. 

WRITe THE LAST QUFFER LOAD ON THE OUTPUT 
TAPE. PRINT THE END LINE AND THE ERROR 
INDICATION ON THIS LINE IS BLANK IF ANO ONLY 
IF NO ERRORS OCCURRED OURING ASSEMELY, 

EJECT PAPER 

SKIP THE PRINTER PaPER ABOUT 2 PAGES AHEADe 
FINISH FLO 

FINISH PROCESSING THE LAST SECTION OF FLOW= 
CHARTe IF ANY (SEE X6¢ EXCEPT COMPILE 

O4 INSTEAD OF O3 OP de 

HALT 

HALT THE COMPUTER: PASS 2 YS FINISHED, 
FLOWCHARTING 

IF NOT FLOWCHARTINGe LOAD THE ASSEMBLEO 
PROGRAM. IF FLOWCHARTING?+GO ON TO PaSS3,. 


